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ABSTRACT 


The  technical  feasibility  of  developing  an  expert 
system  to  support  the  assignment  of  squadron  mainten¬ 
ance  personnel  to  authorized  billets  is  examined  by 
building  a  prototype  system.  The  rules  used  by  an 
assistant  maintenance  officer  to  assign  personnel  are 
analyzed,  and  a  database  derived  from  the  OPNAV  1000/2 
and  EDVR  is  designed.  The  prototype  is  developed  for  a 
micro-computer  system  using  an  expert  system  shell, 
Insight  2+,  and  is  fully  integrated  with  dBase  III 
files . 
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THESIS  DISCLAIMER 


The  reader  is  cautioned  that  computer  programs 
developed  in  this  research  may  not  have  been  exercised 
for  all  cases  of  interest.  While  every  effort  has  been 
made,  within  the  time  available,  to  ensure  that  the 
programs  are  free  of  computational  aind  logic  errors, 
they  cannot  be  considered  validated.  Any  application 
of  these  programs  without  additional  verification  is 
the  risk  of  the  user. 
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I.  INTRODUCTION 


One  of  the  duties  of  the  assistant  maintenance 
officer  in  an  aviation  squadron  is  to  assign  main¬ 
tenance  personnel  to  the  various  squadron  maintenance 
billets.  Specifically,  the  NAMP  [Ref.  1]  defines  his 
responsibility  as: 

Determine  the  apportionment  of  maintenance  personnel 
assigned  to  the  department  and  monitor /coordinate 
the  assignment  of  Temporary  Additional  Duty  (TAD) 
personnel  to  other  activities. 

The  assistant  maintenance  officer  must  take  into 

account  details  such  as  when  personnel  are  leaving  the 

squadron,  personal  qualifications,  training  and 

duration  of  the  job. 

The  purpose  of  this  thesis  is  to  demonstrate  that 
it  is  technically  feasible  to  build  an  expert  system 
which  assigns  aviation  maintenance  personnel  to 
appropriate  billets.  The  technical  feasibility  will  be 
demonstrated  by  building  a  rule-based  expert  system 
prototype  which  accesses  database  files  to  det'=»rmine 
how  to  assign  personnel  to  billets.  The  required 
inputs  consist  of  two  database  files,  one  which 
contains  all  the  squadron  billets,  and  the  other  holds 
all  the  squadron  personnel  information.  The  output  is 
a  file  containing  the  billet,  the  person  to  be  assigned 
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to  the  hlllet,  and,  when  required,  the  prospective 
person  who  will  fill  the  billet  in  thirty  days  or  less. 

The  prototype  differs  from  expert  systems  which 
search  several  different  alternatives  until  an  accept¬ 
able  one  is  found.  Instead,  it  provides  a  single 
acceptable  solution.  It  also  differs  from  most  expert 
systems  in  that  the  user  interaction  is  done  almost 
exclusively  through  database  files  with  minimal 
interaction  with  the  user.  To  verify  the  expert  system 
under  realistic  conditions,  simulated  databases  of 
billets  and  personnel  from  an  F/A-18  squadron  were 
created. 

Chapter  II  provides  a  statement  of  the  problem 
definition.  It  also  defines  the  scope,  objectives  and 
constraints  in  building  the  expert  system.  Chapter  III 
describes  the  analysis  of  the  problem  and  the  initial 
rules  considered  for  the  prototype.  Chapter  IV 
addresses  the  implementation  of  the  expert  system. 
Chapter  V  discusses  recommendations  for  further 
modifications  of  the  prototype  system.  Chapter  VI 
presents  the  conclusion  of  this  project. 
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II.  PROBLEM  DEFINITION 


The  assistcint  maintenance  officer  rotates  out  of 
the  squadron  at  least  every  three  years,  taking  with 
him  the  knowledge  and  expertise  he  has  accumulated.  He 
is  usually  replaced  by  a  less  experienced  person,  and 
it  can  take  up  to  six  months  to  get  the  person  trained 
to  the  point  where  he  manages  the  functions  of  assign¬ 
ing  personnel  and  scheduling  training  efficiently  and 
effectively . 

The  assistant  maintenance  officer  uses  information 
from  several  sources  to  make  decisions  as  to  where  to 
assign  personnel.  One  of  the  main  documents  is  the 
Manpower  Authorization  (OPNAV  1000/2)  which  is  the 
military  manpower  requirements  authorized  by  the  Chief 
of  Naval  Operations  (CNO).  It  is  the  official  or¬ 
ganization  manning  and  billet  authorization  for  a 
squadron.  It  identifies  the  billet  sequence  code,  the 
bi 1 let /posit ion  title,  designated  rate,  Navy  Enlisted 
Classification  (NEC)  code,  the  number  of  persons 
authorized  (basic  allowance),  and  the  planned  authori¬ 
zations  for  the  next  five  fiscal  years. 

Another  primary  document  is  the  Enlisted  Distribu¬ 
tion  and  Verification  Report  (EDVR).  This  report 
reflects  all  individuals  assigned  to  the  activity, 
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including  prospective  gains.  It  contains  a  roster  of 
all  personnel,  ajid  includes  their  social  security 
numbers,  rates,  NEC’s,  date  assigned  to  the  squadron, 
projected  rotation  date  (PRD),  and  the  end  of  active 
obligated  service  date  (EAOS). 

The  assistant  maintenance  officer  must  also  know 
what  temporary  additional  duty  (TAD)  billets  have  to  be 
filled.  The  TAD  requirements  vary  depending  on  whether 
the  squadron  is  stationed  at  a  Naval  Air  Station  (NAS) 
or  on  board  a  carrier.  The  specific  requirements  are 
spelled  out  in  the  appropriate  NAS,  wing  or  ship 
instructions.  Most  of  the  TAD  billets  are  of  ninety 
days  duration  and  usually  only  Junior  personnel  (El 
through  E3 )  are  assigned  to  them. 

Other  factors  which  must  be  taken  into  account  when 
assigning  personnel  are  special  qualifications  a  person 
might  have.  These  include  collateral  duty  inspector 
(GDI),  quality  assurance  representative  ( QAR ) ,  plane 
captain  (PC),  and  ordnance  certification.  The  assis¬ 
tant  maintenance  officer  by  virtue  of  his  position  in 
the  squadron  should  simply  know  what  qualifications 
each  person  has.  The  information  can  be  also  obtained 
from  the  monthly  maintenance  plan. 


A.  OBJECTIVES 


The  objective  is  to  build  a  prototype  expert  system 
which  can  assign  personnel  to  billets.  Its  utility  is 
that  it  will  improve  the  assistaint  maintenance 
officer’s  decision  making  by  offering  an  "expert" 
solution  to  the  problem.  It  should  also  decrease  the 
time  it  takes  to  train  a  new  person  to  administer  the 
prograim.  Solving  this  problem  is  important  because  the 
assignment  of  personnel  to  billets  and  tracking  of  TAD 
personnel  is  one  of  the  assistant  maintenance  officer’s 
more  time  consuming  activities.  It  involves  numerous 
variables  and  constantly  changing  data,  and  access  to 
an  "expert"  consultant  would  allow  him  to  spend  more 
time  on  squadron  training  requirements  and  other 
personnel  matters. 

B.  SCOPE 

This  expert  system  application  is  limited  to  the 
squadron  maintenance  environment  and  it  emphasizes 
automation  of  one  of  the  assistant  maintenance  of¬ 
ficer’s  functions.  It  is  limited  to  the  assignment  of 
persons  to  suitable  billets  within  certain  constraints, 
and  that  the  assignments  it  recommends  are  as  good  as 
the  assignments  made  by  an  experienced  person.  The 
assignment  of  personnel  is  very  subjective,  and  even 
acknowledged  experts  can  have  wide  differences  of 


opinions.  Therefore,  it  is  not  possible  to  prove  that 
any  particular  assignment  of  personnel  is  the  optimum 
assignment,  and  there  is  no  attempt  to  claim  that  the 
expert  system  generated  solution  is  an  optimal 
solution . 

The  project  is  further  limited  to  application  on  a 
personal  computer  since  most  squadrons  have  micro¬ 
computers  and  access  to  larger  machines  on  board  ships 
is  unlikely.  In  addition,  relatively  inexpensive 
software  for  expert  system  shells  and  database  managers 
is  readily  available  for  micro-computers. 

C.  CONSTRAINTS 

1 .  Hardware 

The  computer  hardware  selected  for  this  project 
is  an  IBM-PC  or  compatible  machine.  It  was  selected 
because  of  the  availability  of  several  commercial 
products  for  expert  systems  and  database  managers  in 
the  MS-DOS  operating  environment.  The  minimum  require¬ 
ments  are  51 2K  internal  memory  and  two  disk  drives.  A 
hard  disk  drive  is  not  necessary,  however  it  is  highly 
desirable.  The  prototype  was  built  and  tested  on  an 
IBM-AT. 

2 .  Software 

Waterman  [Ref.  2]  suggests  several  questions  to 
consider  when  choosing  the  expert  system  tool.  Does  it 


have  the  power  aind  sophistication  needed?  Are  the 
support  facilities  adequate,  especially  when  consider¬ 
ing  time  constraints?  Is  it  reliable  and  is  it 
maintained?  Does  it  have  the  features  that  will  be 
required  to  solve  the  problem? 

Insight  2+  was  selected  as  the  expert  system 
tool  primarily  because  of  two  features:  its  capability 
to  access  dBase  III  files  and  its  user-friendliness. 
Insight  2+  has  a  built-in  programming  language  (DBPAS) 
which  allows  the  knowledge  base  to  access  dBase  III 
files.  Insight’s  similarities  to  Turbo  Pascal  and 
Wordstar  make  the  system  easy  to  learn.  Insight  2+ 
comes  with  an  ASCII  parameter  passing  program  written 
in  Turbo  Pascal  which  allows  the  user  to  write  Turbo 
Pascal  programs  and  pass  parameters  between  the 
knowledge  base  and  a  compiled  Turbo  Pascal  program. 
Also,  the  DBPAS  programming  language  is  very  similar  to 
Turbo  Pascal  with  some  modifications  for  the  dBase  III 
functions.  The  text  editor  in  Insight  2+  uses  the 
Wordstar  command  set  for  editing  both  knowledge  base 
programs  and  DBPAS  programs. 

Insight’s  capabilities  are  limited  to  develop¬ 
ment  of  small  expert  systems  of  less  than  400  rules. 

The  development  of  this  prototype  was  expected  to  be  in 
the  range  of  100  rules,  hence  Insight  was  more  than 
adequate  to  meet  the  requirements. 
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dBase  III  was  selected  for  this  project  because 
of  Its  compatibility  with  Insight  2+.  dBase  III  is  a 
relational  database,  and  has  the  capability  of  handling 


a  typical  aviation  squadron  database  of  approximately 
200  personnel.  An  additional  consideration  in  choosing 
dBase  III  was  my  familiarity  with  it. 
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III.  ANALYSIS 


The  goal  of  the  analysis  phase  was  to  determine  how 
the  problem  should  be  solved.  The  first  step  in  the 
process  was  to  study  the  present  system  and  obtain  a 
good  understanding  of  the  physical  system.  The  second 
step  was  to  develop  the  Initial  rules  that  would  form 
the  basis  for  building  the  knowledge  base.  The  last 
step  was  to  define  the  data  files  and  data  elements 
used  by  the  knowledge  base. 


A.  CURRENT  PHYSICAL  SYSTEM 

In  the  current  system,  the  squadron  assistant 
maintenance  officer  uses  information  from  several 
different  sources  before  making  personnel  decisions. 

The  information  that  is  routinely  used  to  determine 
which  billets  are  authorized  comes  from  the  Manpower 
Authorization  (OPNAV  1000/2)  and  local  instructions 
which  specify  TAD  requirements.  The  Information  from 
the  OPNAV  1000/2  required  by  the  knowledge  base  is  the 
billet/position  title,  designated  rate.  Navy  Enlisted 
Classification  (NEC)  code,  and  the  number  of  persons 
authorized.  The  TAD  billet  information  required  by  the 
knowledge  base  includes  the  billet  description,  number 
of  days  the  TAD  tour  lasts,  and  the  required  paygrade. 
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The  information  that  determines  personnel  on  board 
and  their  qualifications  comes  from  the  EDVR  and  from 
internal  squadron  sources.  The  EDVR  information  used 
to  assign  personnel  is  the  list  of  personnel  and 
prospective  gains,  rate,  NEC,  date  assigned  to  the 
squadron,  PRD,  and  EAOS.  Special  qualifications 
include  GDI,  QAR,  PC,  and  ordnance  certification. 

One  approach  that  an  assistant  maintenance  officer 
takes  is  to  review  each  billet  looking  for  personnel 
changes.  If  a  person  is  currently  filling  a  billet 
(which  is  not  a  TAD  assignment)  and  his  PRD/EAOS  are 
not  within  the  next  thirty  days,  then  that  person  will 
remain  in  the  same  billet.  However,  if  a  person  will 
be  leaving  the  squadron  in  the  next  thirty  days  because 
of  PRD  or  EAOS,  then  a  replacement  has  to  be  found.  In 
the  case  of  TAD  billets,  if  a  person’s  time  in  the 
billet  exceeds  ninety  days,  then  a  replacement  has  to 
be  found. 

The  assistant  maintenance  officer  determines  the 
requirements  necessary  to  fill  a  position  by  looking  at 
the  work  center  and  knowing  what  rates  can  be  assigned 
to  that  work  center.  If  the  billet  is  in  work  center 
110,  the  power  plants  branch,  then  an  "AD"  or  aviation 
machinists  mate  is  required.  If  the  billet  is  in  work 
center  120,  airframes  branch,  then  both  "AMH" ,  aviation 
structural  hydraulics,  and  "AMS",  aviation  structural 
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mechanic,  personnel  are  required.  In  work  center  12C, 
corrosion  control  branch,  "AMS"  personnel  are  assigned. 
In  the  aviation  life  support . systems  branch,  work 
center  1 3A  requires  parachute  riggers,  "PR"  rating,  and 
work  center  1 3B  requires  "AME" ,  aviation  structural 
mechsuilc  egress,  personnel. 

Aviation  electronics  technicians,  "AT"  rating,  are 
assigned  to  work  center  210,  the  electronics  branch, 
while  aviation  electrician  mates,  "AE" ,  are  assigned  to 
work  center  220,  the  electrical/instrument  branch.  The 
armament  branch,  work  center  230,  has  "AO",  aviation 
ordnanceman,  personnel.  If  a  billet  is  in  work  center 
260,  the  radar/fire  control  branch,  then  an  "AQ", 
aviation  fire  control  technician  is  assigned.  In  the 
line  division,  work  centers  310,  plane  captains  branch, 
and  320  troubleshooter  branch,  persons  of  any  rating 
can  be  assigned. 

Administrative  personnel  include  "AZ",  aviation 
administrationman ,  and  "AK" ,  aviation  storekeepers, 
personnel.  AZ ’ s  are  assigned  to  work  center  04C  as  the 
data  analyst,  work  center  04A  as  the  Quality  Assurance 
librarian,  work  center  020  as  a  maintenance  control 
clerk,  or  work  center  030  as  a  maintenance  administra¬ 
tion  clerk.  AK’s  are  assigned  to  the  material  control 
branch,  work  center  050. 
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other  considerations  in  assigning  personnel  are 
their  special  qualifications.  A  quality  assurance 
representative  (QAR)  should  be  a  senior  petty  officer, 
preferably  E6  or  above,  and  have  a  well-rounded 
maintenance  background.  They  are  responsible  for 
performing  inspections  of  critical  maintenance  tasks 
which  require  a  final  quality  assurance  inspection. 

They  also  monitor  the  performance  of  collateral  duty 
inspectors.  QAR’s  are  assigned  to  the  quality  assur¬ 
ance  division,  work  center  040,  and  typically  one 
person  from  each  production  work  center  is  required. 

For  example,  a  squadron  will  usually  have  one  QAR  from 
each  of  the  following  ratings:  AD,  AMH  or  AMS,  AME,  AT, 
AE,  AO  and  AQ.  It  is  also  possible  to  temporarily 
assign  a  person  from  a  work  center  on  a  collateral  duty 
basis,  CDQAR,  however,  for  this  prototype  CDQAR ’ s  were 
not  considered.  A  collateral  duty  inspector  (GDI)  is 
another  special  qualification.  GDI’s  are  required  to 
inspect  all  work  and  comply  with  quality  assurance 
inspections  required  for  the  maintenance  performed  in 
their  work  center.  GDI’s  are  screened  very  carefully 
before  being  designated  as  a  GDI.  Because  of  the  time 
it  takes  to  qualify  personnel  as  a  GDI  or  QAR,  one  of 
the  assistant  maintenance  officer’s  priorities  is  to 
keep  them  in  the  corresponding  work  center. 
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other  qualifications  ordnaince  certification  for 
personnel  In  work  center  "230"  and  plane  captain 
designation  In  work  center  "310".  Usually,  personnel 
who  have  these  qualifications  should  be  assigned  to 
that  work  center . 

This  Is  the  beginning  of  the  process  to  translate 
the  on  the  Job  knowledge  to  rules  for  the  expert 
system.  In  the  next  section,  the  Initial  rules  will  be 
developed  based  on  reasoning  similar  to  the  above. 


B.  DEVELOPING  THE  INITIAL  RULES 

In  developing  the  Initial  rules,  there  are  two 

conditions  which  have  to  be  met  before  the  knowledge 

base  has  completed  Its  task.  The  first  condition  is 

that  the  knowledge  base  has  checked  each  billet  in  the 

billet  database  and  a  person  has  been  assigned  to  the 

billet.  The  second  condition  is  that  the  knowledge 

base  has  verified  each  person  in  the  personnel  database 

is  assigned  to  a  billet.  To  put  the  rule  in  a  format 

similar  to  Insight  2+,  it  will  read: 

IF  all  billets  are  filled 
AND  all  personnel  are  assigned 
THEN  AMO  is  done 

To  fill  a  single  billet  the  requirements  are  to  go 
to  the  billet  database  and  get  the  next  billet,  then 
search  the  personnel  database  and  find  a  person  who 
meets  the  billet  requirements.  Also,  the  knowledge 
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base  will  have  to  determine  if  it  needs  a  prospective 

person,  and,  if  so,  find  a  replacement  person  for  the 

billet.  For  example,  the  rule  might  be: 

IF  have  a  billet 

AND  have  a  person 

AND  have  a  prospective  person 

THEN  one  billet  was  filled 

Once  the  knowledge  base  has  a  billet,  the  search 
for  a  person  to  fill  the  billet  becomes  more  involved. 

A  person  must  have  a  rating  which  is  appropriate  for 
the  work  center.  Also,  it  is  generally  desirable  to 
assign  a  person  to  the  Job  he  is  currently  in.  If  the 
current  person  cannot  be  used,  then  the  knowledge  base 
must  search  for  a  person  who  meets  the  billet  require¬ 
ments.  Additionally,  personnel  with  special  qualifica¬ 
tions  should  be  considered  first  for  billets  in  work 
centers  where  those  qualifications  are  desired.  Some 
of  the  initial  thoughts  for  rules  that  determine  if  a 
person  meets  the  billet  requirements  ar’e  shown  below. 

IF  work  center  =  "110” 

AND  person’s  rating  =  "AD" 

THEN  person  is  eligible  for  billet 

IF  work  center  =  "120" 

AND  billet  requirement  =  "AMH" 

AND  person’s  rating  =  "AMH" 

THEN  person  is  eligible  for  billet 

IF  work  center  =  "120" 

AND  billet  requirement  =  "AMS" 

AND  person’s  rating  =  "AMS" 

THEN  person  is  eligible  for  billet 
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IF  work  center  =  "12C” 

AND  person’s  rating  =  "AMS" 

THEN  person  is  eligible  for  billet 

IF  work  center  =  "12A" 

AND  person’s  rating  =  "PR" 

THEN  person  is  eligible  for  billet 

IF  work  center  =  "13B" 

AND  person’s  rating  =  "AME" 

THEN  person  is  eligible  for  billet 

IF  work  center  =  "210" 

AND  person’s  rating  =  "AT" 

THEN  person  is  eligible  for  billet 

IF  work  center  =  "220" 

AND  person’s  rating  =  "AE" 

THEN  person  is  eligible  for  billet 

IF  work  center  =  "230" 

AND  person’s  rating  =  "AO" 

THEN  person  is  eligible  for  billet 

IF  work  center  =  "260" 

AND  person’s  rating  =  "AQ" 

THEN  person  is  eligible  for  billet 

IF  work  center  =  "020" 

AND  rating  <=  "E6" 

AND  person’s  rating  =  "AZ" 

THEN  person  is  eligible  for  billet 

IF  work  center  =  "030" 

AND  person’s  rating  =  "AZ" 

THEN  person  is  eligible  for  billet 

IF  work  center  =  "04A" 

AND  person’s  rating  =  "AZ" 

THEN  person  is  eligible  for  billet 

IF  work  center  =  "04C" 

AND  person’s  rating  =  "AZ" 

THEN  person  is  eligible  for  billet 

IF  work  center  =  "050" 

AND  person’s  rating  =  "AK" 

THEN  person  is  eligible  for  billet 
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IF  billet  requires  an  NEC 
AND  person  has  NEC 

THEN  person  is  eligible  for  billet 


IF  oroduction  work  center 


AND  person  is  a 
THEN  person  is  ( 

IF  work  center 
OR  work  center 
OR  work  center 
OR  work  center 
OR  work  center 
OR  work  center 
OR  work  center 
OR  work  center 
OR  work  center 
THEN  production 

IF  work  center 
AND  person  is  a 
THEN  person  is  > 


CD  I 

ligible  for  billet 

"110” 

"120" 

"1  2C 
"1  3A" 

"1  3B" 

"210" 

"220" 

"230" 

"260" 

work  center 

"040" 

QAR 

iligible  for  billet 


IF  work  center  =  "230" 

AND  person  is  ordnance  certified 
THEN  person  is  eligible  for  billet 


IF  work  center  =  "310" 

AND  person  is  a  plane  captain 
THEN  person  is  eligible  for  billet 

IF  billet  is  currently  filled 
AND  the  person  hasn’t  been  assigned 
AND  PRD  is  ok 
AND  EAOS  is  ok 

AND  hasn’t  been  in  the  job  too  long 
THEN  have  a  person 


IF  billet  is  currently  filled 

AND  the  person  hasn’t  been  assigned 

AND  PRD  is  ok 

AND  EAOS  is  not  ok 

AND  person  intends  to  reenlist 

AND  hasn’t  been  in  the  job  too  long 

THEN  have  a  person 


22 


IF  have  a  possible  person 

AND  person  meets  billet  requirements 

AND  the  person  hasn’t  been  assigned 

AND  PRD  is  ok 

AND  EAOS  is  ok 

THEN  have  a  person 

IF  have  a  possible  person 

AND  person  meets  billet  requirements 

AND  the  person  hasn’t  been  assigned 

AND  PRD  is  ok 

AND  EAOS  is  not  ok 

AND  person  intends  to  reenlist 

THEN  have  a  person 

The  next  requirement  is  to  find  a  prospective 

person.  A  prospective  person  is  needed  only  if  the 

current  person  is  checking  out  of  the  squadron  in 

thirty  days  or  less.  For  example: 

IF  have  a  person 

AND  PRD  >  30  days  from  today 

AND  EAOS  >  30  days  from  today 

THEN  don’t  need  a  prospective  person 

IF  have  a  person 

AND  PRD  >  30  days  from  today 

AND  EAOS  <=  30  days  from  today 

AND  person  intends  to  reenlist 

THEN  don’t  need  a  prospective  person 

The  same  set  of  rules  that  applies  to  "have  a  person", 

as  already  discussed,  can  then  be  applied  in  searching 

for  a  prospective  person. 

Once  all  the  billets  have  been  checked,  then  a 
review  of  all  squadron  personnel  will  determine  if  all 
personnel  are  assigned.  This  is  the  last  step  which 
must  be  completed  prior  to  the  knowledge  base  reaching 
its  goal.  It  involves  first  chocking  the  new  billet 
assignments  to  see  if  that  person  has  been  assigned.  If 
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the  person  has  been  assigned,  then  the  knowledge  base 
continues  to  the  next  person  in  the  database.  Other¬ 
wise,  if  the  person  has  not  been  assigned,  then  it  must 
find  a  work  center  to  assign  the  person  to.  The  rules 
for  assigning  these  personnel  are: 

IF  person  was  assigned  to  a  work  center 
THEN  assign  to  same  work  center 

IF  person’s  rating  =  "AD" 

THEN  assign  to  work  center  110 

IF  person’s  rating  =  ”AMH" 

THEN  assign  to  work  center  120 

IF  person’s  rating  =  "AMS" 

THEN  assign  to  work  center  1 2C 

IF  person’s  rating  =  "PR" 

THEN  assign  to  work  center  1 3A 

IF  person’s  rating  *  "AME" 

THEN  assign  to  work  center  1 3B 

IF  person’s  rating  *  "AT" 

THEN  assign  to  work  center  210 

IF  person’s  rating  =*  "AE" 

THEN  assign  to  work  center  220 

IF  person’s  rating  =  "AO" 

THEN  assign  to  work  center  230 

IF  person’s  rating  =  "AQ" 

THEN  assign  to  work  center  280 

IF  person’s  rating  =  "AZ" 

THEN  assign  to  work  center  020 

IF  person’s  rating  =  "AK" 

THEN  assign  to  work  center  050 
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C.  DATA  DEFINITION 


After  examining  the  physical  system,  the  need  for 
well-defined  database  was  clear.  The  major  consider¬ 
ations  were  selecting  the  key  fields  ajid  defining  the 
data  structures  for  both  the  input  data  and  the  output . 
The  data  dictionary  is  listed  in  Appendix  A,  and  the 
data  file  structures  are  in  Appendix  B. 

The  data  structure  diagram  (or  Bachman  diagram)  is 
shown  in  Figure  3.1.  It  shows  the  relationships 
between  records  in  the  various  data  files. 


Figure  3-1  Data  Structure  Diagram 
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The  input  data  files  will  be  discussed  first.  The 
squadron  billet  file,  JOBS. DBF,  contains  the  billet 
number,  billet  description,  work  center,  minimum 
paygrade  acceptable  for  this  billet,  maximum  paygrade 
acceptable  for  this  billet,  rating,  the  social  security 
number  of  the  person  currently  filling  this  billet,  the 
social  security  nxamber  of  a  prospective  person  to  fill 
the  billet,  the  job  length,  if  an  NEC  is  required,  and 
the  NEC  if  one  is  required.  The  billet  number  was 
selected  as  the  key  field  since  it  uniquely  identifies 
each  billet.  It  is  also  used  to  identify  the  priority 
of  each  billet.  The  smaller  the  billet  number,  the 
higher  the  priority,  and  JOBS. DBF  file  should  be  sorted 
in  billet  number  sequence. 

The  structure  of  this  file,  JOBS. DBF,  contains  some 

of  the  information  that  was  initially  considered  for 

implementation  as  a  rule.  For  example,  the  rule: 

IF  work  center  =  "110" 

AND  person’s  rating  =  "AD" 

THEN  person  is  eligible  for  billet 

can  be  accomplished  using  the  database  and  the  DBPAS 

programs.  When  the  information  from  JOBS. DBF  is 

retrieved,  it  contains  the  work  center  and  the  paygrade 

and  rating  required  for  the  billet.  The  paygrade  and 

rating  can  then  be  passed  to  the  DBPAS  program  which 

searches  the  PERSONEL.DBF  file.  It  will  then  return 

only  personnel  who  fill  the  paygrade  and  rating 
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requirements,  thus  meeting  the  conclusion  "person  is 
eligible  for  billet".  The  specific  implementation  of 
DBPAS  programs  is  discussed  more  fully  in  chapter  IV. 

The  other  sources  of  input  data  come  from  four 
personnel  files.  In  all  of  the  personnel  files,  the 
key  field  is  social  security  number.  The  PERSINFO.DBF 
file  lists  a  person’s  first,  middle  and  last  names, 
social  security  niomber ,  and  rate.  The  PERSONEL.DBF 
file  includes  a  person’s  social  security  number, 
rating,  paygrade,  date  reported  to  the  squadron,  PRD, 
EAOS,  current  billet  assignment,  date  started  current 
billet,  previous  billet  assignment,  total  days  assigned 
to  that  billet,  if  person  is  qualified  as  a  GDI,  the 
work  center  where  qualified  as  a  GDI,  if  person  is 
qualified  as  a  QAR,  if  person  is  qualified  as  a  plane 
captain,  if  person  is  designated  as  ordnance  certified, 
if  the  person  is  a  designated  striker,  and  the  rating 
for  which  he  is  striking.  The  NEG.DBF  file  contains  a 
person’s  social  security  number  and  NEG.  Since  a 
person  can  have  many  NEG ’ s ,  NEG  was  not  included  in  the 
PERSONEL.DBF  file.  The  REENLIST. DBF  file  Includes  a 
person’s  social  security  number  and  if  he  intends  to 
reenlist  at  his  EAOS.  This  is  the  only  information 
which  is  not  in  the  database  before  starting  the  expert 
system.  If  the  information  becomes  necessary,  the 
expert  system  prompts  the  user,  and  the  result  is 
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stored  in  the  file  in  case  it  is  needed  for  future 
reference . 

The  output  file  is  a  list  of  billets,  the  person  to 
be  assigned  to  that  billet,  and,  if  necessary,  a 
prospective  person  to  fill  the  billet.  To  simplify  the 
output  file,  NEW_JOBS.DBF,  contains  only  the  billet 
number,  the  social  security  number  of  the  person 
assigned,  and  the  social  security  number  of  the 
prospective  person.  Since  the  knowledge  base  goes 
through  the  JOBS. DBF  file  sequentially,  NEW_JOBS.DBF 
will  be  listed  in  the  same  sequence  as  JOBS. DBF.  If 
there  are  additional  personnel  who  are  not  assigned 
after  all  billets  are  filled,  then  they  are  assigned  to 
a  work  center.  To  simplify  Identification  of  these 
billets  in  the  database,  a  billet  number  of  9999  is 
assigned  and  the  work  center  is  identified  where  the 
prospective  person’s  social  security  number  would 
otherwise  be. 
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IV.  IMPLEMENTATION 


The  first  step  taken  to  implement  this  prototype 
was  to  write  database  interface  programs.  The  inter¬ 
faces  are  written  in  Insight’s  DBPAS  language  and  the 
source  code  is  included  in  Appendix  C.  In  addition, 
two  Turbo  Pascal  programs  are  listed  in  Appendix  D. 
Turbo  Pascal  was  utilized  because  it  could  perform  some 
specific  functions  that  could  not  be  accomplished  using 
DBPAS.  The  next  phase  was  writing  and  testing  the 
expert  system  rules.  The  knowledge  base  listing  is 
shown  in  Appendix  E. 

The  flow  diagrams  of  the  expert  system  are  shown  in 
Figures  4.1  through  4.5.  They  provide  am  overall  view 
of  the  system  implementation  and  show  how  the  database 
programs  interface  with  the  knowledge  base.  The  flow 
diagrams  are  Intended  to  show  the  high  level  logical 
flow,  and  do  not  show  every  possible  path  through  the 
knowledge  base. 

A.  DATABASE  INTERFACES 

The  knowledge  base  uses  recursion  to  cycle  through 
the  JOBS. DBF  file.  A  billet  counter  is  Incremented  at 
each  level  of  recursion  and  a  billet  end  of  file 
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variable  identifies  when  all  billets  have  been  filled. 
The  program  GET_BILL.PAS  receives  the  billet  counter 
from  the  knowledge  base,  goes  directly  to  that  record, 
and  returns  the  billet  requirements  and  if  the  end  of 
file  was  reached.  The  JOBS. DBF  must  be  packed,  i.e. 
not  have  any  deleted  records,  since  GET_BILL.PAS  does 
not  check  for  deleted  records  and  will  return  whatever 
information  is  in  that  record. 

Once  the  knowledge  base  has  a  billet,  it  will  try 
to  fill  the  billet  using  rules  and  the  personnel 
database,  PERSONEL . DBF .  There  are  four  DBPAS  programs 
which  get  personnel  data  depending  on  the  requirements. 

The  module  GET__PSSN .  PAS  is  used  when  the  billet 
database,  JOBS. DBF,  has  a  person  assigned  as  currently 
filling  the  billet  or  as  a  prospective  person  for  the 
billet.  The  knowledge  base  sends  a  social  security 
number  to  GET_PSSN.PAS  which  searches  the  personnel 
database  until  it  locates  that  record,  then  it  returns 
all  the  personnel  data  in  that  record  to  the  knowledge 
base . 

The  program  GET_PERS.PAS  is  used  by  the  knowledge 
base  when  it  does  not  have  a  person  currently  assigned 
to  the  billet  or  the  person  who  was  assigned  has  either 
been  reassigned  to  a  higher  priority  billet  or  is 
leaving  the  squadron.  The  knowledge  base  sends  the 
record  number  in  the  personnel  database  where 
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GET_PERS.PAS  should  begin  the  search,  the  desired 
rating  and  the  paygrade.  GET_PERS.PAS  returns  a 
boolean  variable  identifying  if  a  person  of  that  rating 
and  paygrade  was  found,  the  current  record  number  and 
the  person’s  data  (if  a  record  was  found).  If  the 
knowledge  base  receives  a  person  s  record,  it  applies 
different  rules  to  see  if  that  person  meets  all  the 
requirements  of  the  billet.  If  the  person  meets  all 
the  requirements,  then  he  is  assigned  to  the  billet; 
otherwise  the  knowledge  base  Increments  the  personnel 
record  counter,  and  calls  GET_PERS.PAS  which  starts  the 
search  again.  If  GET_PERS.PAS  did  not  locate  a  person 
with  the  right  rating  and  paygrade,  the  knowledge  base 
will  call  another  module,  NEXT_PG.PAS,  which  receives 
the  current  paygrade  and  returns  the  next  lower  pay- 
grade.  Then  the  knowledge  base  uses  rules  to  check  if 
the  new  paygrade  is  greater  than  or  equal  to  the 
minimum  requirements  of  the  billet.  If  it  is,  then  the 
knowledge  base  resets  the  personnel  record  counter  to 
the  beginning  of  the  database  and  calls  GET_PERS.PAS  to 
continue  searching  for  a  person  with  the  right  rating 
and  paygrade. 

The  other  two  program  which  get  personnel  data  are 
GET_SSN . PAS  and  GET_PRSN . PAS .  Both  are  used  to  check 
if  all  personnel  have  been  assigned.  Once  the  knowl¬ 
edge  base  has  completed  all  billet  assignments,  it  uses 
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recursion  to  repeatedly  check  the  personnel  database  to 
ensure  all  personnel  have  been  assigned.  It  begins  by 
initializing  the  personnel  record  counter  and  calling 
GET_SSN.PAS  which  returns  the  person’s  social  security 
number  and  a  boolean  variable  indicating  if  the  end  of 
file  was  reached.  The  knowledge  base  sends  the 
person’s  social  security  number  to  GET_PRSN.PAS  which 
checks  the  NEW_JOBS.DBF  to  see  if  that  social  security 
niamber  has  been  assigned  to  a  billet.  If  so,  the 
knowledge  base  increments  the  personnel  record  counter, 
and  repeats  the  process  until  the  end  of  the  personnel 
file  is  reached.  If  the  person  has  not  been  assigned 
to  a  billet,  then  the  knowledge  base  calls  GET_PRSN.PAS 
which  gets  the  person’s  record  from  the  personnel 
database  so  that  the  knowledge  base  can  apply  the 
necessary  rules  to  assign  this  additional  person  to  a 
work  center . 

During  the  process  of  assigning  the  additional 
personnel,  the  knowledge  base  applies  information  such 
as  the  previous  billet  held,  the  work  center  and  the 
Job  length.  When  the  program  WORK_CTR.PAS  is  called, 
it  receives  a  billet  number,  searches  through  the 
JOBS. DBF  file  and  returns  the  work  center  and  the  job 
length  of  that  particular  billet. 

The  module,  WRITE_IT . PAS ,  is  used  anytime  the 
knowledge  base  has  matched  a  billet  to  a  person  and  a 
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prospective  person.  The  program  receives  the  billet 
number,  the  person’s  social  security  number  and  the 
prospective  person’s  social  security  number  and  appends 
the  NEW_JOBS.DBF  file. 

The  knowledge  base  calls  CHECK_NJ.PAS  when  it  has  a 
possible  person  to  assign  to  a  billet  and  it  wants  to 
verify  that  the  person  has  not  been  previously  assign¬ 
ed.  CHECK_NJ . PAS  receives  a  social  security  number  and 
checks  every  record  in  the  NEW_JOBS.DBF  file  trying  to 
match  social  security  numbers.  If  it  finds  a  match, 
then  it  returns  a  boolean  variable  of  true;  otherwise 
it  returns  a  value  of  false. 

The  program  CHECKNEC.PAS  is  used  to  determine  if  a 
person  has  an  NEC  which  is  required  for  a  particular 
billet.  CHECKNEC.PAS  receives  a  person’s  social 
security  number  and  the  required  NEC,  then  it  searches 
NEC. DBF  trying  to  match  of  both  the  social  security 
number  and  NEC.  If  it  finds  a  match,  it  returns  a 
boolean  value  of  true;  otherwise  it  returns  a  value  of 
false . 

The  module  REENLIST. PAS  is  utilized  by  the  knowl¬ 
edge  base  when  it  has  a  possible  person  to  fill  a 
billet,  but  the  person’s  EAOS  is  less  than  thirty  days 
from  today’s  date.  The  module  performs  two  functions. 
The  first  one  is  to  query  the  user  or  the  REENLIST. DBF 
file  as  to  the  person’s  reenlistment  intention  and  to 
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return  that  information  to  the  knowledge  base.  The 
second  function  is  to  write  the  social  security  number 
and  the  person’s  reenlistment  intention  to  the 
REENLIST. DBF  file  after  the  user  has  been  queried. 

This  allows  possible  future  queries  for  the  same  social 
security  number  to  be  answered  from  the  data  file, 
rather  than  requesting  the  information  again  from  the 
user.  The  program  receives  a  social  security  number 
and  searches  the  REENLIST. DBF  for  a  match.  If  a  match 
is  found,  then  it  returns  the  person’s  reenlistment 
Intention.  If  no  match  is  found,  then  it  searches  the 
PERSINFO.DBF  to  obtain  the  person’s  name  and  rating. 

The  program  then  queries  the  user  in  the  format  "Does 
AZ2  John  Adams  intend  to  reenllst?  (Y/N)".  The 
response  is  appended  to  the  REENLIST. DBF  and  returned 
to  the  knowledge  base. 

When  the  knowledge  base  has  completed  assigning  all 
billets  and  personnel,  it  displays  the  new  billet 
assignments  using  PRINTOUT . PAS .  The  desired  format  is 
to  display  the  billet  description,  the  work  center,  the 
person’s  rate  and  last  name.  If  a  prospective  person 
is  required,  then  the  next  line  displays  "replacement 
is"  and  the  person’s  rate  and  name.  PRINTOUT. PAS  uses 
three  database  files,  NEW_JOBS . DBF ,  JOBS. DBF  and 
PERSINFO.DBF,  to  get  the  required  information.  The 
DBPAS  language  does  not  have  the  facilities  to  send  thp- 
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output  to  the  printer,  so  the  output  is  only  displayed 
on  the  screen. 

The  last  DBPAS  program  is  INIT_NEW.PAS  and  it 
initializes  two  databases,  NEW_JOBS.DBF  and 
REENLIST .DBF.  All  records  in  both  data  files  should  be 
deleted  prior  to  starting  the  knowledge  base.  The 
preferred  method  to  initialize  the  databases  is  to  use 
dBase  III  to  delete  all  records  and  pack  the  databases. 
The  dBase  command  "zap"  will  accomplish  this  in  one 
step . 

The  module  INIT_NEW.PAS  checks  both  databases  and 
deletes  any  records  that  exist,  however  it  cannot  pack 
the  database.  So  any  records  that  exist  in 
NEW_JOBS.DBF  or  REENLIST. DBF  prior  to  starting  the 
knowledge  will  be  marked  for  deletion,  but  will 
actually  still  exist  in  the  database.  Not  packing  the 
databases  will  cause  NEW_JOBS.DBF  to  grow  by  approx¬ 
imately  180  records  every  time  the  knowledge  base  is 
run.  This  will  cause  slower  response  times  when  the 
knowledge  base  calls  CHECK_NJ . PAS  to  determine  if  a 
person  has  already  been  assigned. 

B.  TURBO  PASCAL  INTERFACES 

Two  Turbo  Pascal  functions  were  written  to  perform 
special  functions.  Both  programs  utilize  Insight  2+’s 
parameter  passing  program,  ASCI IPRM. PAS ,  and  the 
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programs  will  not  compile  without  it.  The  ASCIIPRM.PAS 
source  file  is  a  part  of  the  Insight  2+  package  and  is 
not  included  in  the  appendices.  The  program 
GET_DATE.PAS  was  written  to  gain  access  to  the  system 
clock,  so  the  system  would  not  have  to  query  the  user 
for  the  date.  It  returns  the  current  date  and  what  the 
date  will  be  thirty  days  from  current  date,  since  this 
was  decided  on  as  the  planning  horizon  for  this 
prototype . 

The  other  Turbo  Pascal  prograun,  JOB_TIME . PAS ,  is 
used  by  the  knowledge  base  to  determine  if  a  person  has 
exceeded  the  Job  length  requirement  at  his  current 
billet.  This  is  especially  critical  in  TAD  assignments 
where  people  are  rotated  every  ninety  days.  The 
program  receives  the  start  date,  the  current  date  and 
the  Job  length  from  the  knowledge  base  and  returns  two 
boolean  values,  (1)  if  the  Job  length  has  been  exceeded 
and  (2)  if  the  Job  length  will  be  exceeded  in  thirty 
days.  The  program  necessitated  the  use  of  Turbo  Pascal 
rather  than  DBPAS  because  of  the  requirement  to  convert 
a  character  string  to  a  number.  The  file  PERSONEL.DBF 
contains  the  date  a  person  started  his  current  billet, 
and,  when  accessed  by  a  DBPAS  program,  the  date  is 
returned  as  a  character  string  in  the  form  "19870215". 
To  determine  if  a  person  has  exceeded  the  Job  length, 
the  Job  start  date  and  the  current  date  are  converted 
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to  integers  for  year,  month  and  day,  and  then  actual 
amount  of  time  the  person  has  spent  in  the  billet  is 
calculated.  This  niomber  is  then  compared  with  Job 
length  to  determine  if  Job  length  has  been  exceeded. 

It  checks  if  the  Job  length  will  be  exceeded  in  the 
next  thirty  days  by  taking  the  actual  time  spent  in  the 
billet  and  adding  thirty  to  it,  and  then  comparing  this 
number  to  Job  length. 


C .  KNOWLEDGE  BASE 

The  knowledge  base,  AMO.PRL,  has  a  single  goal, 

AMO_IS_DONE.  The  goal  is  reached  by  accomplishing 

three  tasks;  all  billets  are  filled,  all  personnel  are 

assigned,  and  the  final  results  are  displayed.  The 

control  structures  for  both  '*all_billets  are  filled" 

and  "all_j)ersonnel  are  assigned"  are  accomplished  using 

recursion.  An  example  of  the  structure  is: 

IF  one  billet  is  filled 
AND  all_billets  are  filled 
THEN  all_billets  are  filled 

The  stopping  condition  for  the  recursion  is: 

IF  billet  end  of  file 
THEN  all_billets  are  filled 

During  implementation,  the  program  kept  getting  an 

error  message,  possible  infinite  recursion  detected, 

which  was  caused  by  exceeding  the  number  of  levels  of 

recursion  allowed  by  Insight.  The  rules  were  modified 
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to  reduce  the  niomber  of  recursive  calls  by  assigning 
approximately  twenty  billets  to  be  filled  for  every 
level  of  recursion. 

Once  the  knowledge  base  has  a  billet,  it  must  start 
searching  through  the  database  to  find  an  appropriate 
person.  The  first  rules  deal  with  checking  the  current 
person  in  the  billet  to  see  if  that  person  is  still 
available  to  fill  the  billet  and  to  check  that  the 
person  has  not  exceeded  the  job  length.  If  there  is  no 
one  currently  filling  the  billet  or  the  person  who  was 
filling  the  billet  is  not  available,  then  the  knowledge 
base  must  start  searching  through  the  database  to  find 
someone  to  fill  the  billet.  Two  simplifications  were 
made  during  the  implementation  of  the  prototype.  The 
first  was  to  assign  the  most  senior  person  in  paygrade 
to  the  billet,  and  the  second  was  to  write  "none  found" 
if  the  knowledge  base  had  completed  a  thorough  search 
and  no  one  could  be  found  to  fill  the  billet.  The 
knowledge  base  initializes  the  desired  paygrade  to  the 
maximum  allowable  paygrade  for  that  billet  and  searches 
through  the  database  until  it  finds  a  person.  If  no 
one  is  found,  then  it  desired  paygrade  is  reduced  by 
one  paygrade  and  the  search  continues.  If  no  one  is 
found,  it  decreases  the  desired  paygrade  until  it  is 
less  than  the  minimum  allowable  paygrade  for  that 
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billet,  and  it  instead  of  identifying  a  social  security 
number,  it  will  write  "none  found". 

The  knowledge  base  takes  into  account  special 
qualifications  in  its  search  by  only  looking  for 
personnel  with  the  desired  qualifications  during  its 
first  pass  through  the  database.  For  example,  in  a 
production  work  center  which  has  GDIs  assigned, 
assigning  GDI’s  to  work  centers  tadtes  precedence  over 
other  considerations.  The  knowledge  base  taikes  this 
into  account  by  searching  the  database  for  a  GDI  and 
only  after  it  has  found  no  GDIs  available,  will  it 
restart  the  search  for  some  one  who  is  not  a  GDI. 
Although  it  normally  assigns  the  person  with  the 
highest  paygrade,  since  GDIs  take  precedence  in 
production  work  centers,  it  will  assign  a  lower 
paygrade  person  who  is  a  GDI  over  a  higher  paygrade 
person  who  is  not  a  GDI.  For  example,  it  will  assign 
an  E4  who  is  a  GDI  before  it  assigns  an  E5  who  is  not  a 
GDI  to  a  production  work  center  billet.  The  knowledge 
base  follows  this  same  logic  in  making  assignments  to 
work  centers  which  require  special  qualifications  such 
as  QAR ,  ordnance  certified  or  plane  captain. 
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V.  RECOMMENDATIONS  FOR  FURTHER  STUDY 


Capturing  the  knowledge  that  assistant  maintencince 
officers  use  in  assigning  personnel  is  a  complex  and 
time  consuming  task.  This  prototype  utilizes  only  a 
limited  part  of  the  actual  decision  process.  The 
prototype  requires  significant  testing  in  real  world 
situations  and  knowledge  acquisition  from  experts  to 
more  fully  represent  all  aspects  of  the  process. 

Once  a  prototype  has  been  completed,  Harmon  and 
King  [Ref.  3]  state; 

An  adage  popular  among  knowledge  engineers  is  that 
it  is  usually  best  to  throw  away  the  prototype. 
Knowledge  engineering  tools  support  rapid 
prototyping  with  a  low  investment  of  time.  Thus, 
at  this  stage  it  is  common  to  rethink  the  basic 
design  of  the  knowledge  base.  By  this  we  do  not 
mean  that  one  abandons  a  particular  tool.  We  mean 
that  the  exact  list  of  objects  and  attributes  to  be 
included  in  the  system  will  probably  change 
somewhat.  Hlerarchial  relationships  may  need  to  be 
arranged.  The  exact  way  in  which  inference  is 
handled  in  the  heuristics  may  be  modified  as  the 
expert  and  the  knowledge  engineer  realize  how  the 
expert’s  knowledge  and  problem  solving  strategies 
can  be  best  represented. 

Based  on  the  experience  gained  in  building  this  expert 
system,  some  significant  modifications  to  the  existing 
prototype  can  be  recommended.  The  first  major  change 
should  be  to  expand  the  expert  system  to  include  all 
projected  billet  changes  for  the  next  six  months.  In 
developing  the  prototype  system,  a  planning  factor  of 
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thirty  days  ahead  was  considered  sufficient.  However, 
for  development  of  a  full-scale  model  that  more  closely 
resembles  real  world  planning,  a  time  frame  of  six 
months  in  advance  is  necessary. 

The  second  major  change  would  be  to  modify  the 

overall  control  structure  of  the  prototype.  Rather 

than  trying  to  assign  a  person  to  every  billet  in  the 

database,  it  would  be  more  logical  to  scan  through  the 

billet  file  and  determine  every  billet  that  is  not 

currently  filled  or  will  be  vacated  in  a  future  period 

of  time,  i.e.  the  next  six  months.  An  output  file, 

listing  the  billet  number  and  the  date  the  billet  will 

be  vacated,  would  be  written  to  the  disk.  Four  of  the 

basic  rules  tc  determine  if  a  billet  will  be  vacated 

would  be  similar  to  the  following: 

IF  billet  is  currently  vacant 
THEN  billet  will  be  vacated 

IF  current  person’s  prd  <=  6  months  from  today 
THEN  billet  will  be  vacated 

IF  current  person’s  eaos  <=  6  months  from  today 
AND  person  does  not  intend  to  reenlist 
THEN  billet  will  be  vacated 

IF  Job  start  date  +  Job  length  <=  6  months  from  today 
THEN  billet  will  be  vacated 

The  next  task  would  be  to  search  through  the 
personnel  data  base  and  find  all  personnel  who  are  not 
currently  assigned  to  a  billet,  or  are  returning  from  a 
TAD  assignment  within  the  next  six  months.  This  would 
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Include  person’s  who  have  not  yet  checked-ln  to  the 
squadron,  but  appear  on  the  EDVR  as  prospective  gains. 

A  file  would  then  be  written  to  the  disk  with  the 
expected  personnel  gains  and  the  expected  dates. 

The  final  task  would  be  to  match  the  projected 
vacant  billets  with  the  anticipated  gains.  A  search 
algorithm  could  be  used  to  arrive  at  a  solution  which 
offers  the  fewest  vacancies.  An  additional  consider¬ 
ation  would  be  to  add  rules  that  would  weight  the 
billet  vacancies.  Higher  priority  billets  would  "cost" 
more  to  be  left  vacant  than  lower  priority  billets  and 
a  search  algorithm  would  produce  the  least  "cost" 
solution . 

A  third  change  to  the  current  prototype  would  be  to 

simplify  the  rules.  Most  of  the  current  rules  are 

long,  complicated  and  not  easy  to  follow.  The  rules 

could  be  simplified  by  combining  several  related  factor 

into  classification  type  rules.  For  example,  the 

person’s  report  date,  PRD  and  EAOS  could  all  be 

combined  to  yield  a  single  classification  that  can  be 

used  by  other  rules.  Sample  rules  which  would  fit  into 

the  current  prototype  might  be: 

IF  report  date  <=  today’s  date 
AND  PRD  >  date  in  one  month 
AND  EAOS  >  date  in  one  month 
THEN  person’s  tour  remaining  =  long 


47 


IF  report  date  <=  today’s  date 
AND  PRD  >  date  In  one  month 
AND  EAOS  <*  date  in  one  month 
AND  person  Intends  to  reenllst 
THEN  person’s  tour  remaining  =  long 

IF  report  date  <=  today’s  date 
AND  PRD  >  date  in  one  month 
AND  EAOS  <=  date  in  one  month 
AND  NOT  person  intends  to  reenlist 
THEN  person’s  tour  remaining  =  short 

IF  report  date  <=  today’s  date 

AND  PRD  <*  date  in  one  month 

THEN  person’s  tour  remaining  =  short 

This  type  of  classification  would  also  be  useful  in  an 

expert  system  which  was  included  all  personnel  changes 

within  a  six  month  time  frame. 

An  area  which  is  related  to  assigning  of  personnel 
to  billets  and  is  another  major  function  of  the 
assistant  maintenance  officer  is  maintenance  training. 
The  expert  system  could  be  expanded  to  include  training 
requirements  for  particular  billets  and  a  database  of 
the  courses  which  personnel  have  successfully  complet¬ 
ed.  Additionally,  a  database  containing  the  course 
schedules  could  also  be  Included,  and  training  require¬ 
ments  could  not  only  be  identified,  but  course 
scheduling  could  also  be  accomplished. 

Another  recommendation  is  to  perform  extensive 
field  testing  of  the  prototype  and  have  human  "experts" 
point  out  mistakes.  The  mistakes  would  identify  what 
knowledge  was  lacking,  and  then  additional  knowledge 
would  be  added  to  overcome  its  shortcomings.  The 
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prototype  has  not  been  tested  extensively  and  cannot  be 
considered  an  "expert"  until  comprehensive  testing  has 
been  accomplished. 

The  knowledge  base  prototype  accesses  dBase  III 
files  for  billet  and  personnel  data.  However,  there  is 
no  database  program  to  assist  the  user  in  editing, 
appending  or  deleting  records  in  the  database.  The 
implementation  of  an  easy-to-use  database  manager  would 
be  essential  prior  to  field  testing  of  the  prototype. 


VI.  CONCLUSION 


The  Navy  currently  does  not  have  any  tools  for 
automating  the  decision-making  process  for  aviation 
maintenance  personnel.  Many  of  the  criteria  that  are 
used  to  assign  personnel  in  squadrons  are  readily 
captured  in  a  heuristic  knowledge  base. 

This  project  demonstrated  that  it  is  technically 
feasible  to  capture  the  knowledge  an  assistant  main¬ 
tenance  officer  uses  to  assign  personnel  in  a  knowledge 
base.  Additionally,  it  demonstrated  that  a  database 
created  from  the  OPNAV  1000/2  and  EDVR  data  can  be 
Integrated  into  an  effective  tool  for  matching  autho¬ 
rized  billets  and  personnel.  Further  work  should  be 
done  to  fully  implement  such  a  system,  not  to  replace 
the  assistant  maintenance  officer,  but  to  enhance  his 
decision  making. 
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APPENDIX  A 


DATA  DICTIONARY 


Name : 

Aliases : 
Description : 


Format : 
Module/Files : 


billet  counter 
f ile_ctr 

Represents  the  record  number  of  the 
billet  which  the  knowledge  base  is 
currently  trying  to  fill. 

Integer,  4  digits. 

AMO.PRL,  GET  BILL. PAS 


Name : 

Aliases : 
Description : 

Format : 
Module/Files : 


billet  description 
job_descr,  :job_descrp 
Describes  the  type  of  billet,  i.e. 
supervisor,  technician,  etc. 

Integer,  4  digits. 

AMO.PRL,  GET_BILL.PAS,  PRINTOUT . PAS . 
WORK  CTR.PAS,  JOBS. DBF 


Name ; 

Aliases : 
Description : 

Format : 
Module/Files : 


billet  eof 
endof f ile 

Identifies  if  the  end  of  JOBS. DBF  has 
been  reached. 

Boolean,  allowable  values  T  or  F. 
AMO.PRL,  GET  BILL. PAS,  CHECK_N J . PAS 


Name : 

Aliases : 
Description : 


Format : 
Module/Fi les : 


billet  number 
billet_nr 

Identifies  squadron  billets;  it  also 
signifies  the  priority  of  the  billet, 
lower  numbers  are  higher  priority 
billets . 

Integer,  5  digits,  numbers  are  in 
increments  of  10. 

AMO.PRL,  INIT_NEW. PAS,  WRITE_IT . PAS , 
GET_BILL.PAS,  CHECK_N J . PAS ,  WORK_CTR . PAS , 
PRINTOUT . PAS,  JOBS. DBF,  NEW_JOBS.DBF 
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Name : 

Aliases : 
Description : 

Format : 


Module/Files : 


Nsime : 

Aliases : 
Description : 

Format : 
Module/Files : 


Name : 

Aliases : 
Description ; 

Format ; 


Module/Files : 


Name : 

Aliases : 
Description : 

Format : 
Module/Files : 


Name : 

Aliases : 
Description : 


Format : 
Module/Files : 


billet  rating 
rating,  rating__in 

Represents  the  rating  required  by  that 
particular  billet. 

Alphainumer ic ,  3  characters,  allowable 
values  AZ,  AV,  AT,  AE,  AQ,  AD,  AM,  AMH , 
AMS,  AME,  AO,  PR,  ANY. 

AMO.PRL,  GET_BILL.PAS,  GET_PERS . PAS , 
WORK  CTR.PAS,  PRINTOUT . PAS ,  JOBS. DBF 


cdi 

None 

Identifies  if  a  person  is  qualified  as  a 
collateral  duty  inspector  (CDI). 

Boolean,  allowable  values  T  or  F. 
AMO.PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 

GET  SSN.PAS,  GET  PRSN . PAS ,  PERSONEL.DBF 


cdi  for  work  center 
cdi_wc 

Identifies  the  work  center  where  a  person 
is  qualified  as  a  CDI. 

Alphanumeric,  3  characters,  allowable 
values  110,  120,  12C,  13A,  13B,  210,  220, 
230,  260,  280. 

AMO.PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 

GET  SSN.PAS,  GET  PRSN. PAS,  PERSONEL.DBF 


current  Job 
curr_J  ob 

Identifies  the  billet  number  of  the 
billet  a  person  is  currently  assigned  to. 
Integer,  4  digits. 

AMO.PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 

GET  SSN.PAS,  GET  PRSN . PAS ,  PERSONEL.DBF 


current  ssn 

curr_ssn,  curr_pers,  assign_ssn 
Represents  the  social  security  number  of 
the  person  currently  assigned  to  a 
particular  billet. 

Alphanumeric,  11  characters,  HUU-Uit-UiiiiU . 
AMO.PRL,  INIT_NEW. PAS,  GET_BILL . PAS , 
GET_PSSN. PAS,  CHECK_N J . PAS ,  WORK_CTR . PAS , 
PRINTOUT . PAS,  WRITE_IT. PAS,  JOBS. DBF, 

NEW  JOBS. DBF 
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Name;  date  plus  one  month 

Aliases:  date30 

Description:  Represents  the  date  30  days  from  today’s 

date . 

Format:  Alphanumeric,  8  characters,  YYYYMMDD,  for 

example  19870131. 

Module/Files:  AMO.PRL,  GET  DATE. PAS 


Name;  date  reported 

Aliases:  date_rpt,  date__reptd 

Description;  Represents  the  date  a  person  checked  into 

the  squadron. 

Format:  Alphanumeric,  8  characters,  YYYYMMDD,  for 

example  19870131. 

Module/Files:  AMO.PRL,  GET_BILL . PAS ,  GET_PSSN . PAS , 

GET_SSN.PAS,  GET_PRSN . PAS ,  PRINTOUT . PAS , 
PERSONEL . DBF 


Name:  desired  paygrade 

Aliases:  paygr ,  paygd 

Description;  Represents  the  paygrade  of  the  billet 

which  the  knowledge  base  is  currently 
trying  to  fill. 

Format:  Alphanumeric,  2  characters,  allowable 

values  El  through  E9 . 

Module /Files:  AMO.PRL,  GET_PERS . PAS ,  NEXT_PG.PAS 

Name :  eaos 

Aliases;  None 

Description:  Represents  a  person’s  end  of  obligated 

active  service  (EAOS)  date. 

Format:  Alphanumeric,  8  characters,  YYYYMMDD,  for 

example  19870131. 

Module/Files ;  AMO.PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 

GET_SSN.PAS,  GET_PRSN. PAS,  PRINTOUT . PAS , 
PERSONEL, DBF 


Name:  exceeded  Job  length 

Aliases;  exceeded 

Description;  Identifies  if  a  person  has  been  in  the 

billet  the  maximum  amount  of  time 
required;  usually  pertains  to  TAD  billets 
of  90  days  duration. 

Format:  Boolean,  allowable  values  T  or  F. 

Module/Files;  AMO.PRL,  JOB  TIME. PAS 
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Name : 

Aliases : 
Description : 
Format : 
Module/Files : 
Name : 

Aliases : 
Description : 

Format : 
Module/Files : 


Name : 

Aliases ; 
Description : 


Format ; 

Module /Files ; 


Name : 

Aliases : 
Description: 
Format : 
Module/Files : 


Name : 

Aliases : 
Description ; 

Format : 

Module /Files : 


Name : 

Aliases : 
Description : 
Format : 
Module/Files : 


f irst_name 
None 

Identifies  a  person’s  first  name. 
Alphaniomer ic  ,  15  characters. 

PRINTOUT. PAS,  RESNLIST.PAS,  PERSINFO.DBF 
intends  to  reenlist 
intention,  intent,  r_intent 
Identifies  if  a  person  intends  to 
reenllst . 

Boolean,  allowable  values  T  or  F. 
AMO.PRL,  REENLIST. PAS,  REENLIST . DBF , 

INIT  NEW. PAS 


Job  length 

j  ob_l engt h ,  j  ob_lngth 

Identifies  how  long  (number  of  days)  that 
a  Job  lasts,  i.e.  TAD  billets  are  usually 
90  days. 

Integer,  4-  digits. 

AMO.PRL,  GET_BILL.PAS,  WORK_CTR . PAS , 
PRINTOUT. PAS,  JOB  TIME. PAS,  JOBS. DBF 


last_name 

None 

Identifies  a  person’s  last  name. 
Alphanumeric,  15  characters. 

PRINTOUT. PAS,  REENLIST. PAS,  PERSINFO.DBF 


maximum  pay grade 
maxpaygr ,  max_paygr 

Represents  the  highest  allowable  paygrade 
for  a  particular  billet. 

Alphanumeric,  2  characters,  allowable 
values  El  through  E9. 

AMO.PRL,  GET_BILL.PAS,  WORK_CTR . PAS , 
PRINTOUT. PAS,  JOBS. DBF 


middle_nam 

None 

Identifies  a  person’s  middle  name. 
Alphanumeric,  15  characters. 

PRINTOUT . PAS,  REENLIST. PAS,  PERSINFO.DBF 
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Name : 

Aliases : 
Description ; 

Format : 

Module/Files : 


minimum  paygrade 
minpaygr ,  mln_paygr 

Represents  the  lowest  allowable  paygrade 
for  a  particular  billet. 

Alphanxamerlc ,  2  characters,  allowable 
values  El  through  E9. 

AMO.PRL,  GET_BILL. PAS,  WORK_CTR . PAS , 
PRINTOUT. PAS,  JOBS. DBF 


Name : 

Aliases : 
Description : 


Format : 
Module/Files : 


nec  code 
nec_code,  nec 

Represents  the  Navy  Enlisted  Classifi¬ 
cation  (NEC)  code  which  identifies  a 
person’s  particular  skill. 

Integer,  4  digits. 

AMO.PRL,  GET_BILL. PAS,  WORK_CTR . PAS , 
PRINTOUT. PAS,  CHECKNEC . PAS ,  NEC. DBF, 
JOBS. DBF 


Name : 

Aliases : 
Description : 

Format ; 
Module/Files : 


nec  found 
nec_fnd 

Identifies  if  the  NEC  was  found  in  the 
NEC. DBF  file. 

Boolean,  allowable  values  T  or  F. 
AMO.PRL,  CHECKNEC. PAS 


Name : 

Aliases : 
Description : 
person 
Format : 
Module/Files : 


nec  required 
nec_reqd 

Identifies  if  the  billet  requires  a 
with  a  specific  NEC. 

Boolean,  allowable  values  T  or  F. 
AMO.PRL,  GET_BILL. PAS,  WORK_CTR . PAS , 
PRINTOUT. PAS,  JOBS. DBF 


Name;  ordnance  certified 

Aliases:  ord_cert 

Description:  Identifies  if  a  person  is  qualified  to 

handle  ordnance. 

Format:  Boolean,  allowable  values  T  or  F. 

Module/Files:  AMO.PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 

GET  SSN.PAS,  GET  PRSN . PAS ,  PERSONEL.DBF 
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Name : 

Aliases : 
Description: 
Format : 

Module/Files : 


Name : 

Aliases : 
Description : 

Format : 
Module/Files : 


Name : 

Aliases : 
Description: 


Format : 
Module/Files : 


Name : 

Aliases : 
Description : 

Format : 
Module/Files ; 


Name : 

Aliases : 
Description : 
Format : 


Module/Files : 


paygrade 

None 

Represents  the  person’s  paygrade. 
Alphanxomerlc ,  2  characters,  allowable 
values  El  through  E9. 

AMO.PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 

GET  SSN.PAS,  GET  PRSN.PAS,  PERSONEL.DBF 


person  assigned 
None 

Identifies  if  a  person  has  already  been 
assigned  to  a  billet. 

Boolean,  allowable  values  T  or  F. 

AMO . PRL 


personnel  counter 
recrd_nr,  new_recn 

Represents  the  record  number  of  the 
person  that  the  knowledge  base  is 
currently  trying  to  match  with  a  billet. 
Integer,  4-  digits. 

AMO.PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 

GET  SSN.PAS,  GET  PRSN.PAS 


personnel  eof 
endof f lie 

Identifies  if  the  end  of  file  has  been 
reached  in  the  PERSONEL.DBF. 

Boolean,  allowable  values  T  or  F. 
AMO.PRL,  GET  SSN.PAS 


persons  rating 
rating 

Represents  a  person’s  rating. 
Alphanumeric,  3  characters,  allowable 
values  AZ,  AV,  AT,  AE,  AQ ,  AD,  AM,  AMH , 
AMS,  AME,  AO,  PR,  NON. 

AMO . PRL ,  GET_PERS . PAS ,  GET_PSSN . PAS , 

GET  SSN.PAS,  GET  PRSN.PAS,  PERSONEL.DBF 
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Name : 

Aliases : 
Description: 

Format : 
Module/Files : 


plane  captain 
plane_capt,  pc 

Identifies  if  a  person  is  qualified  as  a 
plane  captain. 

Boolean,  allowable  values  T  or  F. 
AMO.PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 

GET  SSN.PAS,  GET  PRSN.PAS,  PERSONEL.DBF 


Name : 

Aliases : 
Description: 

Format : 

Module/Files : 


prd 

None 

Represents  a  person’s  projected  rotation 
date  (PRD). 

Alphanumeric,  8  characters,  YYYYMP®D,  for 
example  19870131. 

AMO.PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 
GET_SSN.PAS,  GET_PRSN . PAS ,  PRINTOUT . PAS , 
PERSONEL . DBF 


Name : 

Aliases : 
Description : 


Format : 
Module/Files : 


previous  Job 
prev_J  ob 

Identifies  the  billet  number  of  the 
billet  a  person  was  previously  assigned 
to  before  his  currently  assignment. 
Integer,  4  digits. 

AMO.PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 
GET_SSN.PAS,  GET  PRSN.PAS,  PERSONEL.DBF 


Name : 

Aliases : 
Description : 


Format : 
Module/Files : 


prospective  ssn 

pros_ssn,  pros_pers,  future_ssn 
Represents  the  social  security  number  of 
the  person  who  is  going  to  be  assigned  to 
the  billet  within  the  next  30  days. 
Alphanumeric,  11  characters,  . 

AMO.PRL,  INIT_NEW. PAS,  GET_BILL . PAS , 
WRITE_IT.PAS,  WORK_CTR . PAS ,  CHECK_N J . PAS , 
PRINTOUT. PAS,  JOBS. DBF,  NEW  JOBS. DBF 


Name : 

Aliases : 
Description : 

Format : 
Module/Files : 


qar 

None 

Identifies  if  a  person  is  qualified  as  a 
quality  assurance  representative. 
Boolean,  allowable  values  T  or  F. 
AMO.PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 

GET  SSN.PAS,  GET  PRSN.PAS,  PERSONEL.DBF 
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Name : 

Aliases : 
Description; 

Format ; 
Module/Flles : 


Name : 

Aliases : 
Description: 

Format ; 
Module/Flles : 


Name : 

Aliases : 
Description: 

Format : 
Module/Flles ; 


Name : 

Aliases : 
Description : 

Format : 

Module/Files ; 


Name : 

Aliases : 
Description : 


Format : 
Module/Files ; 


rate 

None 

Represents  a  person’s  rate,  for  exaunple: 
AZ3,  ATAA,  AMCS,  etc. 

Alphanumeric,  5  characters. 

PRINTOUT. PAS,  REENLIST. PAS,  PERSINFO.DBF 


social  security  number 
ssn 

Represents  the  person’s  social  security 
number . 

Alphanumeric,  11  characters,  . 

AMO.PRL,  GET_PSSN . PAS ,  CHECK_N J . PAS , 
GET_SSN.PAS,  GET_PRSN . PAS ,  PRINTOUT . PAS , 
REENLIST. PAS,  CHECKNEC . PAS ,  INIT_NEW . PAS , 
REENLIST. DBF,  NEC. DBF,  PERSINFO.DBF 


ssn  was  found 
ssn_fnd 

Identifies  if  a  ssn  was  found  while 
searching  through  the  PERSONEL . DBF . 
Boolean,  allowable  values  T  or  F. 
AMO.PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 
GET  PRSN.PAS 


start  date 

star t _dt ,  star t_dat e 

Represents  the  date  a  person  started  his 
current  billet  assignment. 

Alphanumeric,  8  characters,  YYYYMMDD,  for 
example  19870131. 

AMO . PRL ,  GET_PERS . PAS ,  GET_PSSN . PAS , 
GET_SSN.PAS,  GET_PRSN . PAS ,  JOB_TIME . PAS , 
PERSONEL . DBF 


striker 

None 

Identifies  if  a  person  is  striking  for  a 
particular  rating;  applies  to  personnel 
who  are  El  through  E3  and  do  not  have  a 
designated  rating. 

Boolean,  allowable  values  T  or  F. 
AMO.PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 
GET_SSN.PAS,  GET  PRSN.PAS,  PERSONEL. DBF 
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Name : 

Aliases : 
Description: 

Format : 


Module/Files : 


Name : 

Aliases : 
Description : 

Format : 

Module/Files : 


Name : 

Aliases : 
Description : 


Format ; 
Module/Files : 


Name : 

Aliases : 
Description : 


Format : 
Module/Files : 


Name : 

Aliases : 
Description : 

Format : 


Module/Files : 


striker  rating 
str_ratlng,  str_rate 
Represents  the  rating  a  person  is 
striking  for. 

Alphanumeric,  3  characters,  allowable 
values  AZ,  AT,  AE,  AQ,  AD,  AMH,  AMS,  AME, 
AO,  PR. 

AMO . PRL ,  GET_PERS . PAS ,  GET_PSSN . PAS , 

GET  SSN.PAS,  GET_PRSN . PAS ,  PERSONEL.DBF 


todays  date 
today_date,  date 

Represents  today’s  date  which  is 
obtained  from  the  system  clock. 
Alphanumeric,  8  characters,  YYYYMMDD,  for 
example  19870131. 

AMO. PRL,  GET  DATE. PAS,  JOB_TIME.PAS 


total  days  in  previous  Job 
total_days ,  tot_days 

Represents  the  total  number  of  days  a 
person  was  assigned  to  the  Job  he  held 
prior  to  his  ourrent  Job. 

Integer,  4  digits. 

AMO. PRL,  GET_PERS . PAS ,  GET_PSSN . PAS , 

GET  SSN.PAS,  GET_PRSN . PAS ,  PERSONEL.DBF 


total  tad  time 
tad_tlme,  tot_tad 

Represents  the  total  number  of  days  a 
person  has  been  assigned  TAD  from  the 
squadron . 

Integer,  4  digits. 

AMO . PRL ,  GET_PERS . PAS ,  GET_PSSN . PAS , 

GET  SSN.PAS,  GET_PRSN . PAS ,  PERSONEL.DBF 


work  center 
work_cntr ,  workcenter 
Represents  the  work  center  that 
corresponds  to  the  billet. 
Alphanumeric,  3  characters,  allowable 


values  020 

,  030 

,  040 

,  04A 

,  04C 

,  050 

110, 

120, 

1  2C, 

13A, 

13B, 

1  40, 

200  , 

220, 

230, 

260  , 

280, 

300, 

310, 

320, 

ecu. 

CMC, 

IMA, 

SAF, 

SUP, 

TNG, 

TAD. 

AMO. PRL,  GET_BILL. PAS,  WORK_CTR . PAS , 
PRINTOUT. PAS,  JOBS. DBF 
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APPENDIX  B 


DATABASE  STRUCTURE 


The  structure  of  the  six  database  files  which  are 
accessed  by  the  expert  system  are  listed  below. 


Structure  for:  JOBS. DBF 
Aliases:  billet,  jobsfile 

Modules:  GET  BILL. PAS,  WORK  CTR.PAS,  PRINTOUT. PAS 


Field  name 

BILLET_NR 

JOB_DESCRP 

WORKCENTER 

MIN_PAYGR 

MAX_PAYGR 

RATING 

CURR_PERS 

PROS_PERS 

JOB_LENGTH 

NEC_REQD 

NEC 


Type 

Numeric 

Character 

Character 

Character 

Character 

Character 

Character 

Character 

Numeric 

Logical 

Numeric 


Width 

4- 

20 

3 

2 

2 

3 
1 1 
1  1 

4- 

1 

4 


Structure  for:  PERSINFO.DBF 
Aliases:  personnel 

Modules:  REENLIST . PAS ,  PRINTOUT. PAS 


Field  najne 

Type 

Width 

LAST  NAME 

Character 

15 

FIRST  NAME 

Character 

15 

MIDDLE  NAM 

Character 

15 

SSN 

Char acter 

1  1 

RATE 

Char acter 

5 
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structure  for:  PERSONNEL . DBF 
Aliases:  persflle 

Modules:  GET_SSN.PAS,  GET_PERS . SSN ,  GET_PSSN.PAS 

GET  PRSN.PAS 


Field  name 

Type 

Width 

SSN 

Character 

1  1 

RATING 

Character 

3 

PAYGRADE 

Character 

2 

DATE  REPTD 

Date 

8 

PRD 

Date 

8 

EAOS 

Date 

8 

CURR  JOB 

Niomer  ic 

4 

START  DATE 

Date 

8 

PREV  JOB 

Nxameric 

4 

TOT  DAYS 

Numeric 

4 

GDI 

Logical 

1 

CD  I  WC 

Character 

3 

QAR 

Logical 

1 

PLANE  CAPT 

Logical 

1 

ORD  CERT 

Logical 

1 

STRIKER 

Logical 

1 

STR_RATING 

Character 

3 

TOT  TAD 

Numeric 

4 

Structure  for:  REENLIST. DBF 
Aliases:  re_enllst 

Modules:  REENLIST . PAS ,  INIT_NEW.PAS 

Field  name  Type  Width 

SSN  Character  1  1 

INTENT  Logical  1 


Structure  for:  NEC. DBF 
Aliases:  necfile 

Modules:  CHECKNEC.PAS 

Field  name  Type  Width 

SSN  Character  1  1 

NEC  Numeric  4 
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structure  for:  NEW_JOBS.DBF 

Aliases:  assign,  newjobs 

Modules:  INIT_NEW. PAS,  CHECK_N J . PAS , 

PRINTOUT. PAS,  WRITE  IT. PAS 


Field  name  Type  Width 

BILLET_NR  Numeric  3 

CURR_SSN  Character  1 1 

PROS  SSN  Character  1 1 
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APPENDIX  C 


DBPAS  PROGRAMS 

program  CHECK_NEC( RECEIVE  ssn  :  string(ll); 

nec  ;  integer ; 

RETURN  nec_fnd  :  boolean); 

var 

necflle  :  record 

ssn  :  stringC 11); 
nec  :  real; 
end; 

begin 

open(  necflle,  ’nec’); 
goto(  1,  necflle); 

while  NOT  EOF(necflle)  AND  ( (necflle . ssn  <>  ssn) 
OR  (ROUND( necflle. nec)  <>  nec))  do 
begin 

NEXT(necfile) ; 
end; 

nec_fnd  :=  NOT  EOF(necfile) ; 
close(necf lie ) ; 

end; 
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program  CHECK_NJ( RECEIVE  ssn  :  string(ll) 

RETURN  assigned  ;  boolean); 

var 

assign  :  record 

billet_nr  ;  real; 
curr_ssn  :  strlng(11); 
pros_ssn  :  string(11); 
end; 

begin 

open( assign ,  ’ new_j  obs ’ ) ; 

goto( 1 ,  assign); 

while  NOT  EOF( assign)  AND 

(( assign. deleted  =  true)  OR 
(( assign . curr_ssn  <>  ssn)  AND 
( assign .pros_ssn  <>  ssn)))  do 
begin 

NEXT (assign) ; 
end; 

assigned  ;=  NOT  EOF( assign); 
close( assign ) ; 
end; 
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program  GET_B ILL (RECEIVE  file_ctr 

RETURN  billet_nr 
3ob_descr 
work_cntr 
minpaiygr 
maxpaygr 
rating 
cur r_pers 
pros_pers 
Job_lngth 
nec_reqd 
nec_code 
endoff lie 

var 

billet  :  record 
blllet_nr 
J  ob_descrp 
workcenter 
min_paygr 
max_paygr 
rating 
curr_pers 
pros_pers 
j  ob__length 
nec_reqd 
nec 
end; 

begin 

open(  billet, 
goto( f ile_ctr , 
if  EOF(billet) 
then 

begin 

billet_nr  :=  0; 
job_descr  :=  ’ 
work_cntr  ’  ’ 

minpaygr  ; =  *  ’ ; 

maxpaygr  : =  ’  ’ ; 

rating  : =  ’  ’  ; 

curr_pers  :=  ’ 
pros_pers  :=  ’ 
job^lngth  :=  0; 
nec_reqd  :=  false; 

nec_code  :=  0; 

end 
else 


real ; 

string(20) ; 
string(3) ; 
strlng(2 ) ; 
string(2 ) ; 
string(3) ; 
stringC 11); 
strlng( 11); 
real ; 
boolean; 
real ; 


’  J  obs ’ ) ; 
billet ) ; 
=  true 


integer ; 
integer ; 
StringC  20 ) 
string(3) ; 
StringC 2) ; 
string(2) ; 
string(3) ; 
stringC 1 1 ) 
StringC 1 1 ) 
integer ; 
boolean; 
integer ; 
boolean) ; 


J  • 
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begin 

billet_nr  :=  ROUND(billet .billet_nr ) ; 
job__descr  :=  billet .  j  ob_descrp ; 
work_cntr  :=  billet .workcenter ; 
minpaygr  :=  billet .min_paygr ; 
maxpaygr  :=  billet  .m2LX_paygr  ; 
rating  :=  billet . rating; 
curr_pers  :=  billet .curr_pers ; 
pros_pers  ;=  billet .pros_pers ; 
;)ob_lngth  ;=  ROUND(billet .  j  ob_length ) 
nec_reqd  ;=  billet .nec_reqd; 
nec__code  ;=  ROUND(billet  .nec  ) ; 
end; 

endofflle  :=  EOF(billet); 
close(blllet ) ; 
end; 
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program  GET_PERS( RECEIVE  recrd._nr 

rating_in 

paygr 

RETURN  ssn_fnd 
pros_ssn 
rating 
pay grade 
date_rpt 
prd 
eaos 

curr_job 
start_dt 
prev_J  ob 
tot_days 
cdi 

cdi_wc 

qar 

pc 

ord_cert 
striker 
str_rate 
tad_time 
new  recn 


var 


persfile  ;  record 


ssn 

rating 
paygr ade 
date_reptd 
prd 
eaos 

curr_j  ob 
start_date 
prev_j  ob 
total_days 
cdi 

cdi_wc 

qar 

plane_capt 
ord_cert 
striker 
str_r at ing 
tot_tad 
end; 


strlngC 11); 
strlng( 3 ) ; 
str ing( 2 ) ; 
string(8) ; 
string(8) ; 
string(8) ; 
real ; 

string(8) ; 
real ; 
real ; 
boolean ; 
string(3) ; 
boolean ; 
boolean ; 
boolean ; 
boolean ; 
string(3) ; 
real ; 


begin 

open(  persfile,  ’personel’); 
goto(  recrd_nr,  persfile); 
if  rating_in  =  ’ANY’ 
then 


Integer ; 
stringC  3 ) ; 
string(2) ; 
boolean; 
str ing( 1 1 ) 
string(3) ; 
StrlngC  3 ) ; 
string(8) ; 
string(8) ; 
string(8) ; 
integer ; 
string(8) ; 
integer ; 
integer ; 
boolean; 
string(3 ) ; 
boolean ; 
boolean ; 
boolean ; 
boolean; 
string(3) ; 
integer ; 
integer ) ; 
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begin 

while  NOT  EOF(persf ile )  AND 
(persf ile .paygrade  <>  paygr )  do 
begin 

NEXT(persfile) ; 
end; 

end 

else 

begin 

while  NOT  EOF(persf ile )  AND 
( (per sf lie .pay grade  <>  paygr)  OR 
(persfile. rating  <>  rating__in)) 
begin 

NEXT( persfile ) ; 
end; 

end; 

if  EOF(persf ile ) 
then 

begin 

ssn_fnd  :=  false; 
pros_ssn  :=  ’  ’; 

rating  : =  '  * ; 

paygr ade  ’  ’; 

date_rpt 

prd  : =  ’  ’ ; 

eaos  ; =  ’  ’  ; 

cur r Job  :=  0; 
start_dt  ; =  ’  ’ ; 

prevjob  :=  0; 
tot_days  :=  0; 
cdi  :=  false; 
cdi_wc  : =  ’  ’ ; 

qar  :=  false; 
pc  ;=  false; 
ord_cert  :=  false; 
striker  :=  false; 
str_rate  : =  ’  ’ ; 

tad_time  :=  0; 

new_recn  :=  SIZE( per sf i le )  +  1; 

end 

else 


do 
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begin 

ssn_fnd  :=  true; 
pros_ssn  :=  persf ile . ssn; 
rating  :=  persf ile . rating; 
paygrade  :=  persf ile .paygrade ; 
date_rpt  :=  persf ile . date_reptd; 
prd  :=  persf ile .prd; 
eaos  :=  persf ile . eaos ; 
curr_Job  :=  ROUND(persf ile . curr_J ob ) ; 
start_dt  :=  persf ile . start_date ; 
prev_job  :*  ROUND(persf ile .prev_J ob ) ; 
tot_days  :=  ROUND(persf ile . total_days ) ; 
cdi  :=  persfile.cdi ; 
cdl_wc  :=  persf ile . cdi_wc ; 
qar  :=  persf ile . qar ; 
pc  :*  persf ile . qar ; 
ord_cert  :=  persf ile . ord_cert ; 
striker  :=  persf ile . striker ; 
str_rate  :=  persf ile . str_rating; 
tad_time  :=  ROUND(persf i le . tot_tad ) ; 
new_recn  :=  RBCNO(persf ile  ) 
end; 

close (persf lie ) ; 

end; 
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program  GET_PRSN( RECEIVE  recr(i_nr 

RETURN  ssn_fnd 
ssn 

rating 

paygrade 

date_rpt 

prd 

eaos 

curr_3ob 

start_dt 

prev_3ob 

tot__days 

cdi 

cdi__wc 

qar 

pc 

ord_cert 

striker 

str__rate 

tad__time 

var 

persfile  :  record 

ssn  :  strlngC 11); 

rating  ;  strlng(3); 

paygrade  :  string(2); 
date_reptd  :  string(8); 
prd  ;  string(8); 

eaos  ;  string(8); 

curr_job  :  real; 
start_date  :  strlng(8); 
prev_Job  :  real; 
total_days  :  real; 
cdi  ;  boolean; 

cdi_wc  ;  strlng(3); 

qar  :  boolean; 

plane_capt  :  boolean; 
ord_cert  :  boolean; 
striker  ;  boolean; 
str_rating  ;  strlng(3); 
tot_tad  :  real ; 
end; 

begin 

open(  persflle,  ’personel’); 

goto(  recrd_nr,  persfile); 

if  EOF(persf ile ) 
then 


integer ; 
boolean; 
stringC 11); 
string(3) ; 
string(3) ; 
strlng(8) ; 
strlng(8) ; 
strlng(8) ; 
integer ; 
string(8) ; 
integer ; 
integer ; 
boolean; 
string(3) ; 
boolean; 
boolean; 
boolean; 
booleaui; 
string( 3 ) ; 
integer ) ; 
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false ; 


begin 

ssn_fnd  : = 
ssn  : s  ’ 
rating  :=  ’ 
paygrade  := 
date_rpt  : = 
prd  ;=  ’ 
eaos  : =  ’ 
curr_Job  := 
start_dt  := 
prev_Job  :» 
tot_days  : = 
cdl  :=  false; 
cdl_wc  : =  ’  ' ; 

qar  ;=  false; 
pc  ;=  false; 
ord_cert  :=  false; 
striker  ;=  false; 
str_rate  :=  *  ’; 

tad_time  ;=  0; 

end 

else 

begin 

ssn_fnd  ;=  true; 

ssn  :*  persf ile . ssn; 

rating  :=  persf ile . rating; 

paygrade  :=  persf ile .paygrade ; 

date_rpt  :=  persf ile . date_reptd; 

prd  :=  persf ile .prd; 

eaos  :=  persf ile . eaos ; 

curr_job  :=  ROUND( per sf 1 le . curr_j ob ) ; 
start_dt  :=  persf ile . start_date ; 
prev_job  :=  ROUND(persf ile .prevj ob ) ; 
tot_days  :=  ROUND(persf ile . total_days ) 
cdi  ;=  persf ile . cdi ; 
cdi_wc  :=  persf ile . cdi_wc ; 
qar  ;=  persf ile . qar ; 
pc  :=  persf ile . qar ; 
ord_cert  :=  persf ile . ord_cert ; 
striker  :=  persf i le . str iker ; 
str_rate  :=  persf ile . str_rating; 
tad_time  :=  ROUND( per sf i le . tot_tad ) ; 
end ; 

close(persfile); 

end ; 


0; 


0; 

0; 


72 


program  GET__PSSN( RECEIVE  curr_ssn 

RETURN  ssn_fnd 
rating 
paygrade 
date__rpt 
prd 
eaos 

curr_3ob 

start_dt 

prev_job 

tot_days 

cdi 

cdi_wc 

qar 

pc 

ord_cert 
striker 
str_rate 
tad_time 
new  recn 


var 


persfile  :  record 


ssn 

rating 

paygrade 

date_reptd 

prd 

eaos 

curr_J  Ob 
start_date 
prev_J  ob 
total_days 
cdi 

cdl_wc 

qar 

plane_capt 
or d_cert 
striker 
str_rating 
tot_tad 
end; 


strlngC 11); 
strlng(3) j 
string(2) ; 
strlng(8) ; 
strlng(8) ; 
string(8) ; 
real ; 

string(8) ; 
real ; 
real ; 
boolean ; 
string(3) ; 
boolean ; 
boolean; 
boolean; 
boolean ; 
string(3) ; 
real ; 


begin 

open(  persfile,  ’personel’); 

goto(  1,  persfile); 

while  NOT  EOF(persf ile )  AND 

(curr_ssn  <>  persfile. 
begin 

NEXT (persfile ) ; 
end; 


strlng( 11); 
boolean; 
string(3) ; 
string(3) ; 
string(8) ; 
string(8) ; 
string(8) ; 
integer ; 
string(8) ; 
Integer ; 
Integer ; 
boolean; 
string( 3 ) ; 
boolean; 
boolean; 
boolean; 
boolean; 
string(3) ; 
Integer ; 
integer ) ; 


ssn)  do 
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if  EOF(persf lie ) 
then 

begin 

ssn_fnd  :=  false; 
rating  : =  ’  * ; 

paygrade  :=  ’ 
date_rpt  : =  '  ’ ; 

prd  : =  ’  *  ; 

eaos  :  =  •  ’  ; 

curr_Job  :*  0; 
start_dt 
prev_job  :=  0; 
tot_days  :=  0; 
cdi  ;=  false; 
cdi_wc  : =  *  * ; 

qar  :=  false; 
pc  :=  false; 
ord_cert  :=  false; 
striker  :=  false; 
str_rate  *  ’; 

tad_time  :=  0; 

new_recn  :=  SIZE(persf lie )  +  1; 

end 


else 


begin 

ssn_fnd  :=  true; 

rating  :=  persf lie . rating; 

paygrade  :=  persf lie .paygrade ; 

date_rpt  :=  persf lie . date_reptd; 

prd  :=  persf lie .prd; 

eaos  ;=  persf lie . eaos ; 

curr_Job  :=  ROUND(persf lie . curr_j ob ) ; 
start_dt  ;=  persf lie . start_date ; 
prev_job  :=  ROUND( persf i le . prev^j ob ) ; 
tot_days  :=  ROUND(persf lie . total_days ) 
cdi  :=  persf lie . cdi ; 
cdi_wc  :=  persf lie . cdi_wc ; 
qar  ;=  persf lie . qar ; 
pc  :=  persf 1 le . qar ; 
ord_cert  :=  persf lie . ord_cert ; 
striker  :=  persf ile . striker ; 
str_rate  :=  persf ile . str_rating; 
tad_time  :=  ROUND( persf i le . tot_tad ) ; 
new_recn  :=  RECNO( persf i le  ) ; 
end; 

close(persfile) ; 

end ; 
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program  GET_SSN( RECEIVE  recrd_nr  : 

RETURN  ssn  : 

endoffile : 


var 

persfile  :  record 
ssn 

rating 
paygrade 
date_reptd 
prd 
eaos 

curr_j  Ob 
star t_date 
prev_3  Ob 
total_days 
cdi 

cdi_wc 
qar 

plane_capt 
ord_cert 
striker 
str_rating 
tot_tad 
end; 

begin 

open(  persfile,  ’personel’)j 
goto(  recrd_nr,  persfile); 
if  EOF(persf lie ) 
then 

begin 

ssn  : =  ’  ' 

end 

else 

begin 

ssn  ;=  persfile . ssn; 
end; 

endoffile  :=  EOF(persf ile ) ; 
close(persfile); 

end; 


strlng( 11); 
string(3) ; 
string(2) ; 
string(8) ; 
strlng(8) ; 
strlng(8) ; 
real ; 

string(8) ; 
real ; 
real ; 
boolean; 
stringC  3 ) ; 
boolean; 
boolean; 
boolean; 
boolean; 
strlng(3) ; 
real ; 


Integer ; 
StringC 11); 
boolean) ; 


75 


program  INIT_NEW; 
var 

assign  :  record 

billet_nr  :  real; 
curr_ssn  :  strlng(ll); 
pros_ssn  :  stringOl); 
end; 

re_enlist  ;  record 
ssn  :  str lng( 11); 
intent  :  boolean; 
end; 

begin 

open ( assign ,  *  new_j  obs ’ ) ; 

goto(1,  assign); 
while  NOT  EOF( assign)  do 
begin 

if  assign. deleted  =  false 
then 

begin 

assign. deleted  :=  true; 
replace(asslgn) ; 
end; 

NEXT ( assign ) ; 
end; 

close( assign) ; 

open( re_enlist ,  ’reenlist’); 
goto( 1 ,  re_enlist); 
while  NOT  EOF( re_enlist )  do 
begin 

if  re_enllst . deleted  =  false 
then 

begin 

re_enllst . deleted  :=  true; 
replace ( re_enli St ) ; 
end; 

NEXT( re_enl ist ) ; 
end; 

close( re_enlist ) ; 
end ; 
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program  NEXT_PG( RECEIVE  paygr  :  string(2); 

RETURN  paygd  :  strlng(2)) 

begin 

if  paygr  =  ’E9’ 
then 

paygd  ;  =  ’  E8  ’  ; 

if  paygr  =  *E8’ 
then 

paygd  ;=  ’E7’; 

if  paygr  *  ’E7’ 
then 

paygd  :=  ’E6’; 

if  paygr  =  ’E6’ 
then 

paygd  :*  ’E5’; 

if  paygr  =  *E5* 
then 

paygd  : =  ’E4 ’ ; 

if  paygr  =  ’E4’ 
then 

paygd  :=  ’E3’; 

if  paygr  =  ’E3’ 
then 

paygd  : =  ’ E2 ’ ; 

if  paygr  =  ’E2’ 
then 

paygd  :  =  ’El  ’  ; 

if  paygr  =  ’El ’ 
then 

paygd  :=  ’E0’; 

end; 
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program  PRINT_OUT; 
var 

newjobs  :  record 

billet_nr  :  real; 
curr_ssn  :  string(11); 
pros_ssn  :  stringOl); 

end; 

personnel  :  record 

last_name  :  string(15); 
first_name  :  strlng(15); 
mlddle_nam  :  stringOS); 
ssn  :  string( 11); 

rate  :  strlng(5); 

end; 

Jobsflle  :  record 

billet_nr  :  real; 

Job_descrp  :  strlng(20); 
workcenter  ;  strlng(3); 
min__paygr  :  string(2); 
max__paygr  :  strlng(2); 
rating  ;  strlng(3); 

curr_pers  ;  string(ll); 
pros_pers  :  string(ll); 

3ob_length  ;  real; 
nec__reqd  ;  boolean; 
nec~  :  real; 

end; 

dx_nx  :  strlng(2); 
begin 

open(newJ obs ,  ’new_Jobs’); 
openCpersonnel ,  ’persinfo’); 
open(  ;3  obsf  ile  ,  ’Jobs’); 
gotoO  ,  newjobs); 
while  NOT  EOF(newJobs)  do 
begin 

if  (newjobs . deleted  =  false)  AND 

( newj obs . bil let_nr  <>  9999.0)  then 
begin 

goto(1,  Jobsfile); 
while  NOT  EOF( J obsf ile )  AND 
( newj obs .billet_nr  <> 
Jobsflle.billet_nr )  do 
begin 

NEXT( Jobsfile) ; 
end; 


goto( 1 ,  personnel ) ; 


while  NOT  EOF(personnel )  AND 
(newjobs .curr_ssn  <> 

personnel . ssn)  AND 
( new j ob s . cur r _s sn  <> 

'none  found’ )  do 

begin 

NEXT (personnel ) ; 
end; 

if  ( new jobs. cur r_ssn  =  ’none  found’) 
then 

WRITELN( j obsf ile . j ob^descrp , ’ 
j  obsf ile . workcenter , 

’  no  one  found’ ) 

else 

WRITELN(  j  obsf  ile .  j  ob__descrp ,  ’  ’, 

jobsf ile .workcenter , 

’  * .personnel . rate , ’  ’, 

personnel . last_name ) ; 

if  (newjobs.pros_ssn  >  ’000-00-0000’)  OR 
(newjobs.pros_ssn  =  ’none  found’) 
then 

begin 

goto( 1 ,  personnel ) ; 
while  NOT  EOF(personnel )  AND 
( newj obs .pros_ssn  <> 
personnel . ssn)  AND 
( newj  obs .pros^ssn  <> 

’none  found’ )  do 
begin 

NEXT(personnel ) ; 
end; 

if  (newj obs .pros_ssn  = 

’none  found’ )  then 
WRITELN( ’  replacement 

needed,  but  no  one  found’) 
else 

WRITELN( ’  replacement 

is  ’, per sonnel . rate , 

’  ’ .personnel . last_name ) ; 

end; 

WRITELN; 

end; 
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if  (newjobs . deleted  =  false)  AND 

(new3obs.billet_nr  =  9999.0)  then 
begin 

goto( 1 ,  personnel); 

while  NOT  EOF(personnel )  AND 

(newJobs.curr_ssn  <>  personnel . ssn ) 
do 

begin 

NEXT(personnel ) ; 
end; 

WRITELN( ’  extra  person, 

’ .personnel . rate , 
personnel .  last_najne assign  to 
newj obs .pros_ssn ) ; 

WRITELN; 

end; 

NEXT ( new j  obs ) ; 
end; 

close(newJ  obs ) ; 
close(personnel ) ; 
close( J  obsf ile ) ; 
end; 
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program  REENL I ST ( RECEIVE  ssn  :  string(ll); 

RETURN  intention  :  boolean); 

var 

re_enlist  :  record 

ssn  :  str ing( 11); 
intent  :  boolean; 
end; 

personnel  :  record 

last_name  :  string(15); 
first_name  ;  string(15); 
middle_nam  :  string(15); 
ssn  ;  str ing( 11); 

rate  :  string(5); 

end; 

r_intent  :  char ; 
begin 

open( re_enlist ,  ’reenlist’); 
goto( 1 ,  re_enlist); 
while  NOT  EOF( re_enlist )  AND 
((ssn  <>  re_enllst . ssn )  OR 
( re_enlist . deleted  =  true))  do 
begin 

NEXT( re_enlist ) ; 
end; 

if  (ssn  =  re_enlist . ssn ) 
then 

begin 

intention  :=  re_enlist . intent ; 
end 
else 

begin 

open( personnel ,  ’persinfo’); 

goto( 1 ,  personnel); 

while  NOT  EOF( per sonnel  )  AND 

(ssn  <>  per sonnel . ssn )  do 
begin 

NEXT( personnel ) ; 
end ; 

CLEAR ; 

WRITELN; 

WRITELN; 

WRITELN; 

WRITELN( ’ Does  personnel . rate , ’ 

personnel . f irst_name , 
personnel . last_name  , 

’  intend  to  reenlist?  (Y/N)’) 
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r_intent  : =  ’  ’  ; 

repeat 

begin 

READLN ( r_intent ) ; 
end; 

until  (r_intent  =  ’Y')  OR  (r_intent  =  »y’) 
OR  (r_intent  =  ’N’) 

OR  (r_intent  =  ’n’); 

if  (r_intent  =  ’Y’ )  OR  (r  intent  =  ’y’) 
then 

begin 

intention  :=  true; 

end 

else 

begin 

intention  :=  false; 
end; 

re_enlist . Intent  :=  intention; 
re_enlist . ssn  :=  ssn; 
append( re_enlist ) ; 
close( re_enlist ) ; 
end; 

close(personnel ) ; 
end; 
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program  WORK_CTR( RECEIVE  billet_nr  :  integer; 

RETURN  work_cntr  :  string(3); 

3ob_lngth  :  integer); 

var 

Jobsfile  :  record 

billet_nr  ;  real; 
job_descrp  :  string(20); 
workcenter  :  string(3); 
min_paygr  ;  string(2); 
max_paygr  :  string(2); 
rating  :  string(3); 

curr_pers  :  string(11); 
pros_pers  :  string(11); 

3ob_length  :  real; 
nec_reqd  :  boolean; 
nec  :  real; 

end; 

begin 

open( J obsf ile ,  ’Jobs’); 

goto( 1 ,  Jobsfile); 

while  NOT  EOF( J obsf ile )  AND 

(( J obsfile . deleted  =  true)  OR 

( J obsf ile .billet_nr  <>  FLOAT ( bi 1 let_nr )) )  do 
begin 

NEXT( Jobsfile) ; 
end; 

if  EOF( J obsf i le )  then 
begin 

work_cntr  :=  ’  ’; 

Job_lngth  :=  0; 

end 

else 

begin 

work_cntr  :=  J obsf ile .workcenter ; 

Job_lngth  :=  ROUND( J obsf i le . J ob_length ) ; 
end; 

close ( J obsf i le ) ; 
end ; 
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program  WRITE_IT( RECEIVE  billet_nr  :  Integer; 

asslgn_ssn  :  string(ll); 
future_ssn  ;  string(ll)); 

var 

assign  ;  record 

blllet_nr  ;  real; 
curr_ssn  :  string(11); 
pros_ssn  :  string(ll); 
end; 

begin 

open( assign ,  ’ new_j  obs ’ ) ; 
assign. billet_nr  :=  FLOAT(billet_nr ) ; 
assign . cur r_ssn  :=  assign_ssn; 
assign .pros_ssn  :*  future_ssn; 
append( assign ) ; 
close( assign ) ; 
end; 
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APPENDIX  D 


TURBO  PASCAL  PROGRAMS 


program  get_(iate  ; 
type 

registers  »  record 

ax,bx,cx,(lx,bp,sl  ,dl  ,ds,es,fg  :  Integer; 
end; 

»  ■  •  'It 

VAR 

RECPACK  :  registers;  (record  for  MsDos  call) 

MONTH,  DAY  :  STRING [ 2] ; 

YEAR  ;  STRING [4]; 

err,  iMONTH,  IDAY,  iYEAR,  DX ,  CX  :  INTEGER; 
date,  date30  :  strlng[8]; 

($1  ASCIIPRM.PAS  >  (This  is  INSIGHT  2+  Pascal  paramte 

passing  source  > 


BEGIN 

WITH  RECPACK  DO  BEGIN 
AX  :=  $2A  SHL  8; 

END; 

MSDOS  (RECPACK);  (  call  function  ) 

WITH  RECPACK  DO  BEGIN 
STR  (CX,  YEAR); 

STR  (DX  MOD  256,  DAY); 

STR  (DX  SHR  8,  MONTH); 

END; 

val  (month,  imonth,  err); 
val  (day,  Iday,  err); 
val  (year,  iyear ,  err); 

if  imonth  <=  9 
then 

MONTH  :=  ’0’+MONTH; 
if  i day  <  =  9 
then 

DAY  : =  ’ 0 ’ +DAY ; 

DATE  ;=  YEAR+MONTH+DAY; 
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iday  :=  iday  +  30; 


if  ((imonth*1)  or  (imonth=3)  or  (imonth=5)  or 
(lmonth=7)  or  (imonth=8)  or  (imonth=10))  and 
(iday >31)  then 
begin 

imonth  : =  imonth  +  1 ; 
iday  : =  iday  -  31 ; 
end; 

if  (imonth=2)  and  (iday>28)  then 
begin 

imonth  ; =  imonth  +  1 ; 
i  day  :  =  i  day  -  28 ; 
end; 

if  ((imonth=4)  or  (imonth*6)  or  (imonth=9)  or 
(imonth=11))  and  (iday >30)  then 
begin 

imonth  : =  imonth  +  1 ; 
iday  :=  iday  -  30; 
end; 

if  (imonth=12)  and  (iday>31)  then 
begin 

iyear  : =  iyear  +  1  ; 
imonth  : *  1 ; 
i day  : =  i day  -  31; 
end; 

str  (  iyear  :  4-  .year  ) ; 

if  Imonth  <=  9 
then 

begin 

str ( imonth: 1 .month); 

MONTH  :=  ’0’+MONTH; 

end 

else 

begin 

str ( imonth : 2 .month ) 
end; 

if  iday  <=  9 
then 

begin 

str ( iday : 1 , day ) ; 

DAY  : =  ’ 0 ’ +DAY ; 

end 

else 
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begin 

str(iciay:2,day); 

end; 

DATE30  :=  YEAR+MONTH+DAY ; 
INIT_PARAM_ADDR ; 
RESET_PARAM_MEMORY  (2); 
WRITE_STRING( date ) ; 
WRITE_STRING( date30 ) ; 

END. 
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program  job_time; 


VAR 

start_date , 

tod.ay_date  ;  strlng[8] ; 

Job_length  :  real; 
exceeded, 

exceed30  :  boolean; 

istrtyr , 
istrtmo , 
istrtda, 
ltdayyr , 
ltdaymo , 
it day da, 
err , 

Jobtime  :  integer; 

start_yr , 

today _yr  :  string[4] ; 

start_mo , 
today_mo , 
start^da, 

today_da  ;  strlng[2] ; 

($1  ASCIIPRM.PAS)  (This  is  INSIGHT  2+  Pascal  paramter 

passing  source  > 

begin 

INIT_PARAM_ADDR ; 

READ_STRING( start_date ) ; 

READ_STRING( today_date ) ; 

READ_REAL( J  ob_length ) ; 

start_yr  :=  COPY( start^date , 1 , 4 ) ; 
start_mo  :=  COPY( starx_date , 5 , 2 ) ; 
start_da  :=  COPY( star t_date , 7 , 2 ) ; 

today _yr  :=  COPY( today_date , 1 , 4 ) ; 
today _mo  :=  COPY( today_date , 5 , 2 ) ; 
today_da  :=  COPY( today_date , 7 , 2 ) ; 

val ( start_yr , istrtyr , err ) ; 
val ( start_mo , istrtmo , err ) ; 
val  (  star t_da.,  istrtda,err  ) ; 

val ( today _yr , ltdayyr ,err ) ; 
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val  ( to<iay_mo ,  itdaymo ,  err  ) ; 

val(today_da, itdayda.err ) ; 

if  ltdayda  <  Isti'tda  then 
begin 

itdayda  ;*  ltdayda  +  30; 

itdaymo  ;=  itdaymo  -  1; 

end; 

if  itdaymo  <  istrtmo  then 
begin 

itdaymo  ;=  itdaymo  +  12; 

itdayyr  :=  ltdayyr  -  1; 

end; 

jobtime  :=  ((itdayyr  -  istrtyr )  *  365)  + 
((itdaymo  -  istrtmo)  *  30)  + 
(itdayda  -  istrtda); 

if  job time  >=  job_length 
then 

exceeded  : =  true 
else 

exceeded  ;*  false; 

if  (jobtime  +  30)  >-  job_length 
then 

exceed30  true 
else 

exceed30  :=  false; 

RESET_PARAM_MEMORY  ( 1 ) ; 

WRITE_BOOLEAN( exceeded) ; 

WRITE_BOOLEAN( exceed30 ) ; 


END. 
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APPENDIX  E 


KNOWLEDGE  BASE  PROGRAM 


TITLE  AMO  DISPLAY 


AMO  KNOWLEDGE  BASE 


ASSISTANT 

MAINTENANCE 

OFFICER 


A  knowledge  base  designed  to  assist  the 
squadron  Assistant  Maintenance  Officer 
in  assigning  maintenance  personnel  to 
appropriate  billets. 

Author:  Thomas  P.  Alston,  LT ,  USN 

Date:  28  February  1987 


Press  Function  Key  3  STRT  to  start  AMO. 


NUMERIC 

billet  counter 

AND 

billet  number 

AND 

job  length 

AND 

personnel  counter 

AND 

current  job 

AND 

previous  job 

AND 

total  days  in  previous  job 

AND 

total  tad  time 

AND 

nec  code 
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STRING 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 


todays  date 
date  plus  one  month 
billet  description 
work  center 
minimum  pay grade 
maximum  paygrade 
pay grade 
desired  paygrade 
billet  rating 
persons  rating 
social  security  number 
current  ssn 
prospective  ssn 
date  reported 
prd 
eaos 

start  date 

cdi  for  work  center 

striker  rating 


SIMPLEFACT  nec  required 

AND  nec  found 

AND  billet_eof 

AND  personnel_eof 

AND  ssn  was  found 

AND  cdi 

AND  qar 

and  plane  captain 

AND  ordnance  certified 

AND  striker 

AND  person  assigned 

and  has  exceeded  Job  length 

and  will  exceed  Job  length  soon 

and  person  meets  al l_requirements 

AND  reenlistment  intention 


FORGET  ALL 
SUPPRESS  ALL 
CONFIDENCE  OFF 
UNKNOWN  FAIL 


!  The  goal  of  the  knowledge  base  is  AMO_IS_DONE. 
1 .  AMO  IS  DONE 
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RULE  1  Check  if  goal  ( AMO_IS_DONE)  is  reached 

IF  system  initialized 

AND  all_billets  are  filled 

AND  FORGET  initialize  personnel  counter 

AND  initialize  personnel  counter 

AND  all_personnel  are  assigned 

AND  CALL  printout 

THEN  AMO_IS_DONE 

RULE  2  Initialize  new_Jobs.dbf  and  reenllst.dbf  and 

!  get  todays  date  and  date  30  days  from  today 

CALL  init_new 

ACTIVATE  get__date.com 

RETURN  todays  date 

RETURN  date  plus  one  month 

IF  billet  counter  :=  1 

AND  personnel  counter  :=  1 

THEN  system  Initialized 

!  Next  four  rules  are  used  to  check  if  all  billets  have 
!  been  filled.  The  knowledge  base  starts  with  the 
!  billet  counter  initialized  to  1 ,  and  cycles  through 
!  the  jobs.dbf  file  until  it  reaches  the  end  of  the 
!  file.  Originally,  the  rules  used  recursion  directly 
!  on  "all_billets  are  filled"  to  fill  approximately  170 
!  billets.  However,  because  Insight  2+  detects 
!  possible  infinite  recursion,  a  method  of  reducing  the 
!  number  of  recursive  calls  had  to  be  implemented. 

!  Therefore,  the  rules  were  modified  to  allow  approx- 
!  imately  20  billets  to  be  assigned  for  each  level  of 
!  recursion. 

RULE  3  Recursive  call  for  all_billets  are  filled 
IF  fill  some  billet^ 

AND  FORGET  fill  some  billets 

AND  fill  some  billets 

AND  FORGET  fill  some  billets 

AND  fill  some  billets 

AND  FORGET  fill  some  billets 

AND  fill  some  billets 

AND  FORGET  fill  some  billets 

AND  all_billets  are  filled 

THEN  all_blllets  are  filled 

RULE  4  Stopping  condition  for  all_billets  are  filled 
IF  billet__eof 

THEN  all  billets  are  filled 
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RULE  5  Conditions  for  filling  one  billet 

IF  have  a  billet 

AND  have  a  person 

AND  have  a  prospective  person 

AND  CALL  write_it 

SEND  billet  number 

SEND  current  ssn 

SEND  prospective  ssn 

AND  FORGET  have  a  billet 

AND  FORGET  have  a  person 

AND  FORGET  have  a  prospective  person 

AND  billet  counter  :=  billet  counter  +  1 

THEN  one  billet  was  filled 

RULE  6  Fill  some  (5)  billets,  one  at  time 

IF  one  billet  was  filled 

AND  FORGET  one  billet  was  filled 

AND  on'=*  billet  was  filled 

AND  FORGET  one  billet  was  filled 

AND  one  billet  was  filled 

AND  FORGET  one  billet  was  filled 

AND  one  billet  was  filled 

AND  FORGET  one  billet  was  filled 

AND  one  billet  was  filled 

AND  FORGET  one  billet  was  filled 

THEN  •^‘111  some  billets 

RULE  7  Initialize  the  personnel  counter 

IF  personnel  counter  :=  1 

THEN  initialize  personnel  counter 

!  Next  three  rules  are  used  to  check  if  all  personnel 
!  have  been  assigned.  The  knowledge  base  starts  with 
!  the  personnel  counter  Initialized  to  1 ,  and  cycles 
!  through  the  personel.dbf  file  until  it  reaches  the 
!  end  of  the  file.  The  rules  use  recursion  to  check 
!  if  all  persons  have  been  assigned.  Again,  the 
!  recursion  is  modified  so  that  the  levels  of 
!  recursion  are  reduced. 

RULE  8  Check  if  a  person  has  been  assigned 
IF  have  ssn 

AND  person  already  assigned 
AND  FORGET  have  ssn 

AND  FORGET  person  already  assigned 

AND  personnel  counter  :=  personnel  counter  +  1 

THEN  one  person  is  assigned 
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RULE  9  Recursive  call  for  all_per sonnel  are  assigned 

IF  one  person  is  assigned 

AND  FORGET  one  person  is  assigned 

AND  one  person  is  assigned 

AND  FORGET  one  person  is  assigned 

AND  one  person  is  assigned 

AND  FORGET  one  person  is  assigned 

AND  one  person  is  assigned 

AND  FORGET  one  person  is  assigned 

AND  all_personnel  are  assigned 

THEN  all_personnel  are  assigned 

RULE  10  Stop  condition  for  all_personnel  are  assigned 

IF  per sonnel_eof 

THEN  all_personnel  are  assigned 

RULE  11  Get  a  billet 
CALL  get_blll 
SEND  billet  counter 
RETURN  billet  number 
RETURN  billet  description 
RETURN  work  center 
RETURN  minimum  paygrade 
RETURN  maximum  paygrade 
RETURN  billet  rating 
RETURN  current  ssn 
RETURN  prospective  ssn 
RETURN  Job  length 
RETURN  nec  required 
RETURN  nec  code 
RETURN  blllet_eof 
IF  NOT  billet_eof 
THEN  have  a  billet 

’  Rules  that  conclude  "have  a  person"  are  listed 

*  below.  These  rules  are  used  to  match  a  billet 
!  with  a  person  in  the  personal. dbf  file.  The 

!  knowledge  base  will  try  to  assign  the  person  who 
!  is  currently  filling  the  billet  to  that  billet 
!  unless  the  person  is  about  to  leave  the  squadron 
!  due  to  PRD/EAOS  considerations,  or  the  person  has 
!  been  assigned  to  another  billet,  or  the  person  is 

*  not  currently  assigned  to  a  billet. 
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RULE  12  Check  if  current  person  is  ok  for  the  billet 
IF  current  ssn  >  "000-00-0000" 

AND  social  security  number  :=  current  ssn 

AND  have  the  current  person 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  have  job  length  information 

AND  NOT  has  exceeded  job  length 

AND  prospective  ssn  >  "000-00-0000" 

AND  person  hasnt  been  assigned 

AND  FORGET  have  the  current  person 

AND  FORGET  person  hasnt  been  assigned 

AND  FORGET  have  job  length  information 

THEN  have  a  person 

AND  need  a  prospective  person 

.RULE  13  Check  if  current  person  is  ok  for  the  billet 
IF  current  ssn  >  "000-00-0000" 

AND  social  security  number  :=  current  ssn 

AND  have  the  current  person 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  have  job  length  Information 

AND  NOT  has  exceeded  job  length 

AND  prospective  ssn  <=  "000-00-0000" 

AND  person  hasnt  been  assigned 
AND  FORGET  have  the  current  person 
AND  FORGET  person  hasnt  been  assigned 
AND  FORGET  have  job  length  information 
AND  FORGET  need  a  prospective  person 
THEN  have  a  person 

RULE  14  Check  if  current  person  is  ok  for  the  billet 
IF  current  ssn  >  "000-00-0000" 

AND  social  security  number  :=  current  ssn 

AND  have  the  current  person 

AND  prd  >  date  plus  one  month 

AND  eaos  <=  date  plus  one  month 

AND  Intends  to  reenlist 

AND  have  job  length  information 

AND  NOT  has  exceeded  job  length 

AND  prospective  ssn  >  "000-00-0000" 

AND  person  hasnt  been  assigned 

AND  FORGET  have  the  current  person 

AND  FORGET  Intends  to  reenlist 

AND  FORGET  person  hasnt  been  assigned 

AND  FORGET  have  job  length  information 

THEN  have  a  person 

AND  need  a  prospective  person 
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RULE  15  Check  If  current  person  Is  ok  for  the  billet 
IF  current  ssn  >  "000-00-0000" 

AND  social  security  number  :»  currant  ssn 

AND  have  the  current  person 

AND  prd  >  date  plus  one  month 

AND  eaos  <■  date  plus  one  month 

AND  Intends  to  reenllst 

AND  have  Job  len^'th  Information 

AND  NOT  has  exceeded  Job  length 

AND  prospective  ssn  <-  "000-0C3-000  V 

AND  person  hasnt  been  assigned 

AND  FORGET  need  a  prospective  person 

AND  FORGET  have  the  current  person 

AND  FORGET  Intends  to  reenllst 

AND  FORGET  person  hasnt  been  asslg.ied 

AND  FORGET  have  Job  length  Information 

THEN  have  a  person 

RULE  16  Check  If  current  person  It  ok  for  the  billet 
IF  current  ssn  >  "000-00-0000" 

AND  social  security  number  :■  current  ssn 

AND  have  the  current  person 

AND  prd  >  todays  date 

AND  eaos  >  todays  date 

AND  prd  <■  date  plus  one  month 

AND  person  hasnt  been  assigned 

AND  FORGET  have  the  current  person 

AND  FORGET  person  hasnt  been  assigned 

THEN  have  a  person 

AND  need  a  prospective  person 

RULE  17  Check  If  prospective  perso  i  Is  ok  for  billet 
IF  current  ssn  >  "000-00-0000" 

AND  prospective  ssn  >  "000-00-0000" 

AND  social  security  number  :■  prosp3Ctlve  ssn 

AND  FORGET  have  the  current  person 

AND  have  the  current  person 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  person  hasnt  been  assigned 

AND  FORGET  need  a  prospective  person 

AND  FORGET  have  the  current  person 

AND  FORGET  person  hasnt  been  assigned 

THEN  have  a  person 
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RULE  18  Check  if  prospective  person  is  ok  for  billet 
IF  current  ssn  >  "000-00-0000'* 

AND  prospective  ssn  >  "000-00-0000" 

AND  social  security  niamber  :*  prospective  ssn 

AND  FORGET  have  the  current  person 

AND  have  the  current  person 

AND  prd  >  date  plus  one  month 

AND  eaos  <=  date  plus  one  month 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

AND  intends  to  reenlist 

AND  FORGET  Intends  to  reenlist 

AND  FORGET  have  the  current  person 

AND  FORGET  need  a  prospective  person 

THEN  have  a  person 

RULE  19  Find  a  person  to  fill  billet 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  desired  paygrade  <  minimum  paygrade 
AND  FORGET  initialize  personnel  counter 
AND  FORGET  initialize  desired  paygrade 
AND  FORGET  find  a  person 
AND  find  a  person 

AND  FORGET  person  hasnt  been  assigned 
AND  FORGET  need  a  prospective  person 
AND  FORGET  initialize  personnel  counter 
AND  FORGET  initialize  desired  paygrade 
AND  FORGET  have  a  possible  person 
THEN  have  a  person 

RULE  20  Find  a  person  to  fill  billet 

IF  initialize  personnel  counter 

AND  initialize  desired  paygrade 

AND  have  a  possible  person 

AND  nec  required 

AND  person  has  nec 

AND  start  date  <=  todays  date 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  person  hasnt  been  assigned 

AND  current  ssn  :=  social  security  number 

AND  FORGET  person  hasnt  been  assigned 

AND  FORGET  initialize  personnel  counter 

AND  FORGET  initialize  desired  paygrade 

AND  FORGET  have  a  possible  person 

AND  FORGET  person  has  nec 

AND  FORGET  need  a  prospective  person 

THEN  have  a  person 
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RULE  21  Find  a  person  to  fill  billet 

IF  Initialize  personnel  counter 

AND  initialize  desired  paygrade 

AND  have  a  possible  person 

AND  nec  required 

AND  person  has  nec 

AND  start  date  <=  todays  date 

AND  prd  >  date  plus  one  month 

AND  eaos  <=  date  plus  one  month 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

AND  Intends  to  reenlist 

AND  current  ssn  :=  social  security  number 
AND  FORGET  initialize  personnel  counter 
AND  FORGET  initialize  desired  paygrade 
AND  FORGET  have  a  possible  person 
AND  FORGET  need  a  prospective  person 
AND  FORGET  person  has  nec 
AND  FORGET  intends  to  reenlist 
THEN  have  a  person 

RULE  22  Find  a  person  to  fill  billet 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  production  work  center 
AND  FORGET  production  work  center 
AND  cdi 

AND  start  date  <=  todays  date 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  person  hasnt  been  assigned 

AND  current  ssn  :=  social  security  number 

AND  FORGET  person  hasnt  been  assigned 

AND  FORGET  initialize  personnel  counter 

AND  FORGET  initialize  desired  paygrade 

AND  FORGET  have  a  possible  person 

AND  FORGET  need  a  prospective  person 

THEN  have  a  person 
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RULE  23  Find  a  person  to  fill  billet 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  production  work  center 
AND  FORGET  production  work  center 
AND  cdi 

AND  start  date  <*  todays  date 

AND  prd  >  date  plus  one  month 

AND  eaos  <=  date  plus  one  month 

AND  intends  to  reenlist 

AND  person  hasnt  been  assigned 

AND  current  ssn  :=  social  security  number 

AND  FORGET  person  hasnt  been  assigned 

AND  FORGET  initialize  personnel  counter 

AND  FORGET  initialize  desired  paygrade 

AND  FORGET  have  a  possible  person 

AND  FORGET  need  a  prospective  person 

AND  FORGET  intends  to  reenlist 

THEN  have  a  person 

RULE  24  Find  a  person  to  fill  billet 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  work  center  =  ”040" 

AND  cdi 

AND  start  date  <=  todays  date 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  person  hasnt  been  assigned 

AND  current  ssn  :=  social  security  number 

AND  FORGET  person  hasnt  been  assigned 

AND  FORGET  initialize  personnel  counter 

AND  FORGET  initialize  desired  paygrade 

AND  FORGET  have  a  possible  person 

AND  FORGET  need  a  prospective  person 

THEN  have  a  person 
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RULE  25  Find  a  person  to  fill  billet 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  work  center  ®  ”040" 

AND  cdi 

AND  start  date  <=  todays  date 

AND  prd  >  date  plus  one  month 

AND  eaos  <=  date  plus  one  month 

AND  intends  to  reenlist 

AND  person  hasnt  been  assigned 

AND  current  ssn  :=  social  security  number 

AND  FORGET  person  hasnt  been  assigned 

AND  FORGET  initialize  personnel  counter 

AND  FORGET  Initialize  desired  paygrade 

AND  FORGET  have  a  possible  person 

AND  FORGET  need  a  prospective  person 

AND  FORGET  intends  to  reenlist 

THEN  have  a  person 

RULE  26  Find  a  person  to  fill  billet 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  work  center  =  ”230" 

AND  ordnance  certified 

AND  start  date  <=  todays  date 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  person  hasnt  been  assigned 

AND  current  ssn  ;=  social  security  number 

AND  FORGET  person  hasnt  been  assigned 

AND  FORGET  initialize  personnel  counter 

AND  FORGET  initialize  desired  paygrade 

AND  FORGET  have  a  possible  person 

AND  FORGET  need  a  prospective  person 

THEN  have  a  person 
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RULE  27  Find  a  person  to  fill  billet 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  work  center  =  "230" 

AND  ordnance  certified 

AND  start  date  <=  todays  date 

AND  prd  >  date  plus  one  month 

AND  eaos  <=  date  plus  one  month 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

AND  intends  to  reenlist 

AND  current  ssn  :=  social  security  number 
AND  FORGET  initialize  personnel  counter 
AND  FORGET  initialize  desired  paygrade 
AND  FORGET  have  a  possible  person 
AND  FORGET  need  a  prospective  person 
AND  FORGET  Intends  to  reenlist 
THEN  have  a  person 

RULE  28  Find  a  person  to  fill  billet 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  work  center  =  "310" 

AND  plane  captain 

AND  start  date  <=  todays  date 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  person  hasnt  been  assigned 

AND  current  ssn  :=  social  security  number 

AND  FORGET  person  hasnt  been  assigned 

AND  FORGET  initialize  personnel  counter 

AND  FORGET  initialize  desired  paygrade 

AND  FORGET  have  a  possible  person 

AND  FORGET  need  a  prospective  person 

THEN  have  a  person 

RULE  29  Continue  looking  for  a  person 
IF  FORGET  have  a  possible  person 
AND  personnel  counter  :=  personnel  counter  +  1 
AND  current  ssn  :=  "000-00-0000" 

AND  have  a  person 
THEN  have  a  person 
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RULE  30  Is  work  center  a  production  work  center 


IF 

work 

center 

s 

"1 1 0" 

OR 

work 

center 

s 

"120" 

OR 

work 

center 

= 

"12C" 

OR 

work 

center 

s 

"1  3A" 

OR 

work 

center 

= 

"1  3B" 

OR 

work 

center 

= 

"21  0" 

OR 

work 

center 

= 

"220" 

OR 

work 

center 

= 

"230" 

OR 

work 

center 

= 

"260" 

OR 

work 

center 

= 

"280" 

THEN  production  work  center 

?  Next  rules  conclude  "find  a  person"  is  used  when  the 
!  search  could  not  find  a  person  who  meets  all 
!  requirements,  so  another  search  is  conducted  to  find 
!  a  person  who  meets  the  minimum  requirements. 

RULE  31  Find  a  person  to  fill  billet 

IF  initialize  personnel  counter 

AND  Initialize  desired  paygrade 

AND  have  a  possible  person 

AND  desired  paygrade  <  minimum  paygrade 

AND  current  ssn  :=  "none  found" 

AND  social  security  number  :=  "none  found" 

AND  FORGET  initialize  personnel  counter 
AND  FORGET  initialize  desired  paygrade 
AND  FORGET  have  a  possible  person 
THEN  find  a  person 
AND  need  a  prospective  person 

RULE  32  Find  a  person  to  fill  billet 

IF  initialize  personnel  counter 

AND  initialize  desired  paygrade 

AND  have  a  possible  person 

AND  start  date  <=  todays  date 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

AND  prospective  ssn  <=  "000-00-0000" 

AND  current  ssn  :=  social  security  number 
AND  FORGET  initialize  personnel  counter 
AND  FORGET  initialize  desired  paygrade 
AND  FORGET  have  a  possible  person 
AND  FORGET  need  a  prospective  person 
THEN  find  a  person 
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RULE  33  Find  a  person  to  fill  billet 

IF  Initialize  personnel  counter 

AND  initialize  desired  paygrade 

AND  have  a  possible  person 

AND  NOT  nec  required 

AND  start  date  <=  todays  date 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  person  hasnt  been  assigned 

AND  current  ssn  :=  social  security  number 

AND  FORGET  person  hasnt  been  assigned 

AND  FORGET  initialize  personnel  counter 

AND  FORGET  initialize  desired  paygrade 

AND  FORGET  have  a  possible  person 

AND  FORGET  need  a  prospective  person 

THEN  find  a  person 

RULE  34  Continue  looking  for  a  person 
IF  FORGET  have  a  possible  person 
AND  personnel  counter  :=  personnel  counter  +  1 
AND  current  ssn  :=  ”000-00-0000'’ 

AND  find  a  person 
THEN  find  a  person 

!  Rule  that  concludes  "person  has  nec" 

RULE  35  Check  if  person  has  the  required  nec 
CALL  checknec 

SEND  social  security  number 

SEND  nec  code 

RETURN  nec  found 

IF  nec  found 

THEN  person  has  nec 

!  Rules  that  conclude  "have  a  prospective  person" 

RULE  36  Find  a  prospective  person 
IF  NOT  need  a  prospective  person 
AND  prospective  ssn  :=  "  " 

AND  FORGET  need  a  prospective  person 
THEN  have  a  prospective  person 
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RULE  37  Find  a  prospective  person 
IF  prospective  ssn  >  "000-00-0000” 

AND  social  security  number  :=  prospective  ssn 

AND  FORGET  have  the  current  person 

AND  have  the  current  person 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

AND  current  ssn  <>  social  security  number 

AND  FORGET  have  the  current  person 

THEN  have  a  prospective  person 

RULE  38  Find  a  prospective  person 

IF  initialize  personnel  counter 

AND  initialize  desired  paygrade 

AND  have  a  possible  person 

AND  desired  paygrade  <  minimum  paygrade 

AND  prospective  ssn  :=  "none  found" 

AND  social  security  number  :=  "none  found" 

AND  FORGET  Initialize  personnel  counter 
AND  FORGET  initialize  desired  paygrade 
AND  FORGET  have  a  possible  person 
THEN  have  a  prospective  person 

RULE  39  Find  a  prospective  person 

IF  initialize  personnel  counter 

AND  initialize  desired  paygrade 

AND  have  a  possible  person 

AND  nec  required 

AND  person  has  nec 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  current  ssn  <>  social  security  number 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

AND  FORGET  person  has  nec 

THEN  have  a  prospective  person 

RULE  40  Find  a  prospective  person 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrace 
AND  have  a  possible  person 
AND  work  center  =  "040" 

AND  billet  rating  =  "ANY" 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  current  ssn  <>  social  security  number 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

THEN  have  a  prospective  person 


1  04 


RULE  41  Find  a  prospective  person 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  work  center  =  •'040" 

AND  qar 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  current  ssn  <>  social  security  number 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

THEN  have  a  prospective  person 

RULE  42  Find  a  prospective  person 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  work  center  =  "040" 

AND  billet  rating  =  "AD" 

AND  have  a  possible  person 
AND  cdi 

AND  cdi  for  work  center  =  "110" 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  ora  month 

AND  current  ssn  <>  social  security  number 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

THEN  have  a  prospective  person 

RULE  43  Find  a  prospective  person 
IF  Initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  work  center  =  "040" 

AND  billet  rating  =  "AE" 

AND  cdi 

AND  cdi  for  work  center  =  "220" 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  current  ssn  <>  social  security  number 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

THEN  have  a  prospective  person 
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RULE  44  Find  a  prospective  person 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  work  center  =  "040" 

AND  billet  rating  =  "AME" 

AND  cdi 

AND  cdi  for  work  center  =  "13B" 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  current  ssn  <>  social  security  number 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

THEN  have  a  prospective  person 

RULE  45  Find  a  prospective  person 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  work  center  =  "040" 

AND  billet  rating  =  "AMH" 

AND  cdi 

AND  cdi  for  work  center  =  "120" 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  current  ssn  <>  social  security  number 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

THEN  have  a  prospective  person 

RULE  46  Find  a  prospective  person 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  work  center  =  "040" 

AND  billet  rating  =  "AQ" 

AND  cdi 

AND  cdi  for  work  center  =  "280" 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  current  ssn  <>  social  security  number 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

THEN  have  a  prospective  parson 
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RULE  47  Find  a  prospective  person 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  work  center  =  "040" 

AND  billet  rating  =  "AO" 

AND  cdi 

AND  cdi  for  work  center  *  "230" 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  current  ssn  <>  social  security  number 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

THEN  have  a  prospective  person 

RULE  48  Find  a  prospective  person 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  work  center  =  "310" 

AND  have  a  possible  person 

AND  plane  captain 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  current  ssn  <>  social  security  number 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

AND  have  ;job  length  information 

AND  NOT  has  exceeded  job  length 

THEN  have  a  prospective  person 

RULE  49  Find  a  prospective  person 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  work  center  =  "230" 

AND  have  a  possible  person 

AND  ordnance  certified 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  current  ssn  <>  social  security  number 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

THEN  have  a  prospective  person 
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RULE  50  Find  a  prospective  person 
IF  initialize  personnel  counter 
AND  initialize  desired  paygrade 
AND  have  a  possible  person 
AND  cdi 

AND  cdi  for  work  center  =  work  center 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  current  ssn  <>  social  security  number 

AND  person  hasnt  been  assigned 

AND  FORGET  person  hasnt  been  assigned 

THEN  have  a  prospective  person 

RULE  51  Find  a  prospective  person 
IF  FORGET  have  a  possible  person 
AND  personnel  counter  :=  personnel  counter  +  1 
AND  prospective  ssn  :=  '*000-00-0000" 

AND  have  a  prospective  person 
THEN  have  a  prospective  person 

!  Next  rules  conclude  "have  a  possible  person" 

RULE  52  Check  if  no  one  has  been  found 
IF  desired  paygrade  <  minimum  paygrade 
THEN  have  a  possible  person 
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RULE  53  Call  GET_PERS.PAS 

CALL  get_jpers 

SEND  personnel  counter 

SEND  billet  rating 

SEND  desired  paygrade 

RETURN  ssn  was  found 

RETURN  social  security  number 

RETURN  persons  rating 

RETURN  paygrade 

RETURN  date  reported 

RETURN  prd 

RETURN  eaos 

RETURN  current  Job 

RETURN  start  date 

RETURN  previous  Job 

RETURN  total  days  in  previous  Job 

RETURN  cdi 

RETURN  cdi  for  work  center 
RETURN  qar 

RETURN  plane  captain 
RETURN  ordnance  certified 
RETURN  striker 
RETURN  striker  rating 
RETURN  total  tad  time 
RETURN  personnel  counter 
IF  ssn  was  found 
THEN  have  a  possible  person 

RULE  54  If  person  wasn’t  found,  then  use  recursion  to 

!  find  a  person  at  the  next  lower  paygrade 

IF  NOT  ssn  was  found 

AND  CALL  next_pg 

SEND  desired  paygrade 

RETURN  desired  paygrade 

AND  personnel  counter  ;=  1 

AND  have  a  possible  person 

THEN  have  a  possible  person 

RULE  55  Initialize  "desired  paygrade" 

IF  desired  paygrade  :=  maximum  paygrade 
AND  FORGET  person  meets  al l_requlrement s 
THEN  initialize  desired  paygrade 

RULE  56  Assert  person  meets  all_requireraents 
IF  1  =  1 

THEN  assert  person  meets  all_requirements 
AND  person  meets  all_requirements 

RULE  57 
IF  0  =  1 

THEN  person  meets  all_requirements 


RULE  58 
IF  0  =  1 

THEN  need  a  prospective  person 

RULE  59  Check  If  person  has  been  in  Job  too  long 

ACTIVATE  Job_time.com 

SEND  start  date 

SEND  todays  date 

SEND  Job  length 

RETURN  has  exceeded  Job  length 
RETURN  will  exceed  Job  length  soon 
THEN  have  Job  length  Information 

RULE  60  Get  a  person  when  you  have  a  ssn 
CALL  get_pssn 

SEND  social  security  nxamber 

RETURN  ssn  was  found 

RETURN  persons  rating 

RETURN  paygrade 

RETURN  date  reported 

RETURN  prd 

RETURN  eaos 

RETURN  current  Job 

RETURN  start  date 

RETURN  previous  Job 

RETURN  total  days  in  previous  Job 

RETURN  cdi 

RETURN  cdi  for  work  center 
RETURN  qar 

RETURN  plane  captain 
RETURN  ordnance  certified 
RETURN  striker 
RETURN  striker  rating 
RETURN  total  tad  time 
RETURN  personnel  counter 
IF  ssn  was  found 
THEN  have  the  current  person 

RULE  61  Call  CHECK_N J . PAS 
CALL  check_nj 

SEND  social  security  number 
RETURN  person  assigned 
IF  NOT  person  assigned 
THEN  person  hasnt  been  assigned 
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RULE  62  Call  REENLIST. PAS 
CALL  reenlist 

SEND  social  security  niomber 
RETURN  reenlistment  intention 
IF  reenlistment  intention 
THEN  intends  to  reenlist 

!  The  next  three  rules  are  used  to  satisfy 
!  "all_personnel  assigned".  The  rules  get  a 
!  social  security  number  from  the  personel.dbf 
!  file  and  then  check  to  see  if  it  is  in  the 
!  newjobs.dbf  file.  If  not,  then  it  assigns 
!  that  person  to  a  work  center. 

RULE  63  Get  ssn  to  check  if  person  has  been  assigned 

CALL  get_ssn 

SEND  personnel  counter 

RETURN  social  security  niomber 

RETURN  personnel_eof 

IF  NOT  personnel_eof 

THEN  have  ssn 

RULE  64  Check  if  person  is  already  assigned 
CALL  check_nj 

SEND  social  security  number 
RETURN  person  assigned 
IF  person  assigned 
THEN  person  already  assigned 
ELSE  assign  person 

RULE  65  Check  if  person  has  already  checked  out 

!  of  the  squadron 

IF  assign  person 

AND  get  the  persons  data 

AND  prd  <=  todays  date 

AND  person  has  checked  out 

AND  FORGET  assign  person 

AND  FORGET  get  the  persons  data 

AND  FORGET  person  has  checked  out 

THEN  person  already  assigned 


RULE  66  Assign  a  person  when  all  billets  are  filled 

IF  assign  person 

AND  get  the  persons  data 

AND  work  center  found 

AND  CALL  wrlte_it 

SEND  billet  number 

SEND  social  security  number 

SEND  work  center 

AND  FORGET  assign  person 

AND  FORGET  get  the  persons  data 

AND  FORGET  work  center  found 

THEN  person  already  assigned 

!  This  rule  is  invoked  after  all  billets  have  been 
!  assigned  and  there  are  "extra"  persons  in  the 
!  personel.dbf  file  who  need  to  be  assigned  to  a 
!  work  center. 

RULE  67  Get  the  "extra"  person’s  data 

CALL  get_prsn 

SEND  personnel  counter 

RETURN  ssn  was  found 

RETURN  social  security  number 

RETURN  persons  rating 

RETURN  paygrade 

RETURN  date  reported 

RETURN  prd 

RETURN  eaos 

RETURN  current  Job 

RETURN  start  date 

RETURN  previous  Job 

RETURN  total  days  in  previous  Job 

RETURN  cdi 

RETURN  cdi  for  work  center 
RETURN  qar 

RETURN  plane  captain 
RETURN  ordnance  certified 
RETURN  striker 
RETURN  striker  rating 
RETURN  total  tad  time 
IF  ssn  was  found 
THEN  get  the  persons  data 

!  The  following  rules’  conclusion  is  "work  center 
!  found" ,  for  assigning  "extra"  personnel .  The 
!  person  will  be  assigned  to  his  current  work  center 
!  if  he  meets  the  criteria  in  the  next  3  rules;  and 
!  the  other  rules  determine  an  appropriate  work  center 
!  based  on  rating  and  paygrade. 
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RULE  68  Assign  him  to  his  current  work  center 

IF  current  Job  >  0 

AND  prd  >  date  plus  one  month 

AND  eaos  >  date  plus  one  month 

AND  get  a  work  center 

AND  not_a  tad  billet 

AND  have  Job  length  Information 

AND  NOT  has  exceeded  Job  length 

AND  billet  number  :=  9999 

AND  FORGET  have  Job  length  Information 

AND  FORGET  get  a  work  center 

AND  FORGET  not_a  tad  billet 

THEN  work  center  found 

RULE  69  Assign  him  to  his  current  work  center 

IF  current  Job  <>  0 

AND  prd  >  date  plus  one  month 

AND  eaos  <=  date  plus  one  month 

AND  intends  to  reenlist 

AND  get  a  work  center 

AND  not_a  tad  billet 

AND  have  Job  length  Information 

AND  NOT  has  exceeded  Job  length 

AND  billet  number  ;=  9999 

AND  FORGET  Intends  to  reenlist 

AND  FORGET  have  Job  length  information 

AND  FORGET  get  a  work  center 

AND  FORGET  not_a  tad  billet 

THEN  work  center  found 

RULE  70  Assign  him  to  his  current  work  center 

IF  current  Job  >  0 

AND  prd  <=  date  plus  one  month 

AND  get  a  work  center 

AND  not_a  tad  billet 

AND  have  Job  length  information 

AND  NOT  has  exceeded  Job  length 

AND  billet  number  ;=  9999 

AND  FORGET  have  Job  length  information 

AND  FORGET  get  a  work  center 

AND  FORGET  not_a  tad  billet 

THEN  work  center  found 

RULE  71  Person  hasn’t  arrived  on  board  yet 

IF  start  date  >  date  plus  one  month 

AND  billet  number  :=  9999 

AND  work  center  :=  start  date 

THEN  work  center  found 


115 


RULE  72  Assign  to  Material  Control 
IF  persons  rating  =  "AK" 

AND  billet  number  :=  9999 
AND  work  center  :=  "050" 

THEN  work  center  found 

RULE  73  Assign  to  Material  Control 
IF  paygrade  <=  "E3" 

AND  striker 

AND  striker  rating  =  "AK" 

AND  billet  niamber  :=  9999 
AND  work  center  ;=  "050" 

THEN  work  center  found 

RULE  74  Assign  to  Maintenance  Control 
IF  persons  rating  *  "AZ" 

AND  billet  number  ;=  9999 
AND  work  center  :=  "020" 

THEN  work  center  found 

RULE  75  Assign  to  Maintenance  Control 
IF  paygrade  <=  "E3" 

AND  striker 

AND  striker  rating  =  "AZ" 

AND  billet  number  :=  9999 
AND  work  center  :=  "020" 

THEN  work  center  found 

RULE  76  Assign  to  Corrosion  Control 
IF  paygrade  <*  "E3" 

AND  persons  rating  =  "AMS" 

AND  billet  number  :=  9999 
AND  work  center  ;=  "12C" 

THEN  work  center  found 

RULE  77  Assign  to  Corrosion  Control 
IF  paygrade  <=  "E3" 

AND  striker 

AND  striker  rating  =  "AMS" 

AND  billet  number  :=  9999 
AND  work  center  :=  "12C" 

THEN  work  center  found 

RULE  78  Assign  to  Line  Division 
IF  paygrade  <=  "E3" 

AND  billet  number  :=  9999 
AND  work  center  ;=  "310" 

THEN  work  center  found 
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RULE  79  Assign  to  Power  Plants 
IF  paygrade  >=  "E7" 

AND  persons  rating  =  "AD” 

AND  billet  number  :®  9999 
AND  work  center  :=  "100" 

THEN  work  center  found 

RULE  80  Assign  to  Power  Plants 
IF  paygrade  >=  "E4" 

AND  persons  rating  =  "AD" 

AND  billet  number  :=  9999 
AND  work  center  :=  "110" 

THEN  work  center  found 

RULE  81  Assign  to  Airframes 
IF  persons  rating  =  "AM" 

AND  billet  number  : =  9999 
AND  work  center  :=  "100" 

THEN  work  center  found 

RULE  82  Assign  to  Airframes 
IF  paygrade  >=  "E4" 

AND  persons  rating  =  "AMS" 

AND  billet  number  :=  9999 
AND  work  center  ;=  "120" 

THEN  work  center  found 

RULE  83  Assign  to  Airframes 
IF  paygrade  >=  "E4" 

AND  persons  rating  =  "AMH" 

AND  billet  number  ; =  9999 
AND  work  center  :=  "120" 

THEN  work  center  found 

RULE  84  Assign  to  PR  Branch 
IF  paygrade  >=  "E4" 

AND  persons  rating  =  "PR" 

AND  billet  number  ;=  9999 
AND  work  center  :=  "13A" 

THEN  work  center  found 

RULE  85  Assign  to  AME  Branch 
IF  paygrade  >=  "E4" 

AND  persons  rating  *  "AME" 

AND  billet  number  :=  9999 
AND  work  center  :=  "13B" 

THEN  work  center  found 
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RULE  86  Assign  to  Avionics 
IF  paygrade  >=  "E?" 

AND  persons  rating  =  "AT" 

AND  billet  number  :=  9999 
AND  work  center  :=  "200" 

THEN  work  center  found 

RULE  87  Assign  to  Avionics 
IF  paygrade  >=  "E7" 

AND  persons  rating  =  "AE" 

AND  billet  number  :=  9999 
AND  work  center  :=  "200" 

THEN  work  center  found 

RULE  88  Assign  to  Avionics 
IF  paygrade  >=  "E7" 

AND  persons  rating  =  "AQ" 

AND  billet  number  :=  9999 
AND  work  center  :=  "200" 

THEN  work  center  found 

RULE  89  Assign  to  Avionics 
IF  paygrade  >=  "E4" 

AND  persons  rating  =  "AT" 

AND  billet  number  :=  9999 
AND  work  center  :=  "210" 

THEN  work  center  found 

RULE  90  Assign  to  Avionics 
IF  paygrade  >=  "E4" 

AND  persons  rating  =  "AE" 

AND  billet  number  :=  9999 
AND  work  center  ;=  "220" 

THEN  work  center  found 

RULE  91  Assign  to  Ordnance 
IF  paygrade  >=  "E4" 

AND  persons  rating  =  "AO" 

AND  billet  number  :=  9999 
AND  work  center  :=  "230" 

THEN  work  center  found 

RULE  92  Assign  to  Radar/Fire  Control  Branch 
IF  paygrade  >=  "E4" 

AND  persons  rating  =  "AQ" 

AND  billet  number  :=  9999 
AND  work  center  :=  "260" 

THEN  work  center  found 
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!  This  rule  gets  a  work  center  and  job  length  when  the 
!  current  job  Is  provided 

RULE  93  Get  the  work  center  he  is  assigned  to 

CALL  work_ctr 

SEND  current  job 

RETURN  work  center 

RETURN  job  length 

THEN  get  a  work  center 

RULE  94  Determine  if  billet  is  not  a  TAD  billet 


IF 

work 

center 

= 

"020" 

OR 

work 

center 

= 

"030" 

OR 

work 

center 

s 

"040" 

OR 

work 

center 

= 

"04A" 

OR 

work 

center 

= 

"04C" 

OR 

work 

center 

= 

"050" 

OR 

work 

center 

s 

"1  00" 

OR 

work 

center 

= 

"1  1  0" 

OR 

work 

center 

= 

"120" 

OR 

work 

center 

a 

"12C" 

OR 

work 

center 

a 

"13A" 

OR 

work 

center 

a 

"1  3B" 

OR 

work 

center 

a 

"140" 

OR 

work 

center 

a 

"200" 

OR 

work 

center 

a 

"210" 

OR 

work 

center 

a 

"220" 

OR 

work 

center 

a 

"230" 

OR 

work 

center 

a 

"260" 

OR 

work 

center 

a 

"280" 

OR 

work 

center 

a 

"300" 

OR 

work 

center 

a 

"310" 

OR 

work 

center 

a 

"320" 

THEN  not_a  tad  billet 
END 
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